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PREFACE 


High  energy  arc  discharges  have  been  used  to  pump  lasers  since  the 
first  ruby  laser  of  Maiman,  and  are  still  the  most  efficient  means  for  exciting 
the  high  energy  lasers.  In  order  to  obtain  larger  inputs  to  le-ers  and  more 
efficient  high  energy  lasers,  the  need  arose  for  a  better  understanding  of  the 
processes  within  the  arc  discharge.  The  literature  existing  on  these  discharges 
is  contradictory,  and  the  experimental  evidences  of  such  phenomena  as  the 
saturation  of  the  discharge  and  dependence  of  efficiency  upon  many  parameters 
were  not  readily  explained. 

I  ider  these  circumstances,  it  was  felt  that  a  more  basic  study  of 
the  highly  radiant,  high  energy  arc  discharge  was  needed,  in  which  the  physical 
properties  of  these  arc  plasma  were  to  be  used  in  models  for  the  discharges  to 
calculate  the  radiant  characteristics.  These  models  for  the  discharge  would  be 
validated  through  experiment.  Once  the  suitable  models  were  available,  the 
application  to  the  specific  high  energy  laser  pumping  applications  would  be 
straightforward,  though  not  necessarily  easy.  The  theoretical  models  for  the 
pulsed  arc  discharge  discussed  in  the  final  report  possess  many  of  the  features 
of  the  actual  arcs,  but  exhibit  only  semi- quantitative  agreement.  In  part, 
this  lack  of  agreement  is  due  to  deficiencies  in  the  model,  such  as  in  not 
including  thermal  conduction  power  transport  and  such  features  as  the  Stark 
broadened  '  which  are  so  important  in  the  infrared  between  .65  and  1.0  |i. 

But  a  large  portion  of  the  disagreement  is  due  to  insufficient  quantitative 
knowledge  of  the  properties  of  dense  p’rmujLn  particular,  the  spectral 
absorptivities  and  transport  properties  (i.e.j  electrical  and  therma] 
conductivity)  of  xenon.  This  lack  of  knowledge  is  not  unique  to  xenon  or  the 


other  rare  gases;  there  is  a  lack  of  quantitative  data  on  dens-  plasmas  of 
even  nitrogen  and  oxygen.  In  the  past  five  years,  there  has  been  a  large- 
amount  effort  devoted  towards  the  investigation  of  those  gases,  using  the 
cascade  arc,  and  the  shock  tube.  The  availability  of  the  digital  computer 
has  helped  considerably  —  if  not  made  possible  —  these  studies. 

The  experimental  measurements  such  as  those  discussed  in  this  report 
indicate  that  the  wall- stabilized  pulsed  arc  or  flash  tube  can  provide  valuable 
quantitative  information  in  dense  plasmas  such  as  those  that  may  oe  encountered 


in  gases  other  than  xenon. 


ABSTRACT 


This  report  summarizes  the  work  go  date  on  Contract  Nor.r  4647(00) 
towards  creating  models  for  the  high  energy  pulsed  arc  discharge  useu  for 
high  energy  laser  pumping.  Homogeneous  temperature  models  are  discussed  in 
which  the  radiant  emission  is  balanced  by  the  electrical  power  input.  These 
models  have  been  evaluated  at  various  energy  levels  for  the  temperature  which 
has  been  measured  within  the  arc  (assuming  local  thermal  equilibrium),  ddie 
models  included  the  continuum  spectral  absorptivity  calculated  according  to 
Biberman  and  Normen  (using  the  Zeta  factor  of  Sehltiter).  There  was  found 
to  be  a  semi- quantitative  agreement  between  the  Zeta  factor  observed  experi¬ 
mentally,  and  those  of  Biberman  and  Norman,  and  of  Schlliter.  The  spectral 
transmissivity  as  a  function  of  current  density  calculated  from  the  models 
showed  reasonable  agreement  with  the  experimental  values  of  Emmett,  Schawlow, 
and  Weinberg  in  the  visible  and  ultraviolet,  but  differ  widely  in  the  infrared 
(due  to  the  strong  infrared  lines  of  xenon). 

Measurements  of  the  time- resolved  profiles  of  lines  in  the  infrared, 
of  the  redial  distribution  of  the  spectral  radiance  in  the  ultraviolet,  and 
of  the  electrical  conductivity  are  also  discussed.  These  measurements  provide 
a  means  for  determining  the  temperature  dependence  of  these  quantities  within 
these  arcs.  The  ultraviolet  radial  profiles  indicate  that  the  arc  is  relatively 
homogeneous  for  the  range  of  current  densities  and  pressures  studied. 
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CHAPTER  1 

Introduction 

Arc  discnarges  are  commonly  used  fci-  exciting  high  energy  lasers. 

The  highly  radiative  arc  discharges  used  for  the  high  energy  laser  excitation 
has  been  examined  experimentally  by  numerous  groups  in  order  to  understand 
them  more  fully,  but  the  results  were  in  many  respects  contradictory.  Further¬ 
more,  many  of  the  characteristics  observed  were  not  readily  explainable  on  any 
simple  basis.  Phenomena  such  as  saturation  of  the  arc,  emission  with  increasing 
power  input  and  the  variation  of  the  efficiency  with  size,  shape,  and  the  energy 

density,  all  required  further  emanation  in  order  to  apply  these  arc  discharges 
to  high  energy  laser  pumping. 

The  radiative  arc  discharge  consists  of  a  core  of  high  density 
plasma,  in  which  the  opacity  varies  widely  for  different  spectral  regions, 
surrounded  by  a  cooler  gas  near  the  wall.  Various  disciplines,  such  as 
astrophysics,  heat  transfer,  and  reentry  physics  have  considered  various  related 
aspects  of  such  plasmas.  The  broader  considerations  must  include,  in  addition 
to  the  widely  varying  opacity  and  the  high  density,  the  transport  properties 
of  the  arc  plasma  and  the  energy  transport  due  to  radiation  within  those 
plasmas,  which  can  possess  a  strongly  varying  temperature  distribution  from 
the  wall  to  the  center  of  the  discharge. 

Since  the  radiative  arc  discharge  plays  a  major  role  in  high  energy 
laser  pumping,  it  was  felt  by  many  that  these  arcs  should  be  understood  more 
thoroughly.  Such  an  understanding  would  be  of  use  not  only  in  present  laser 
design,  but  also  for  studies  on  the  optimization  and  the  maximum  energy 
capabilities  of  future  laser  systems. 
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In  the  course  of  Contract  Nonr  4647(00),  some  models  for  the  highly 
radiative  arc  discharge  were  developed  in  which  the  resistive  power  input 
per  unit  volume  is  balanced  by  radiation  and  by  thermal  conduction  from  that 
volume.  The  arcs  were  optically  thick  (i.e.,  high  absorptivity  or  cjpaciiy) 
over  certain  wavelength  regions,  particularly  in  the  infrared  and  far  ultra¬ 
violet,  but  also  for  many  of  the  lines;  eisewhere  were  optically  thin. 

Consequently  the  analyses  of  the  energy  transport  within  the  arc  included  a 
wide  range  of  spectral  absorptivities  (i.e.,  a  non-gray  radiative  tiansport 
calculation).  The  temperature  in  the  arc  varied  from  being  near  the  boiling 
point  of  quartz  or  less  (-''2000°K)  at  the  outer  wall  to  a  temperature  in  the 
center  necessary  to  give  electrical  conductivities  corresponding  to  *  ->se  of 
a  fully  ionized  gas  ('*,10,000°K).  This  inhomogeneity  in  temperature  and  the 
resulting  gradient  needed  to  be  considered  in  any  complete  evaluation  of 
the  model  for  the  radiative  arc  discharge.  The  First  Semiannual  Report1 
discussed  many  of  these  aspects  of  the  considerations  involved  in  the  model 
studies. 

In  the  course  of  the  contract,  models  described  in  the  First  Semi¬ 
annual  Report  were  evs.  ateb  nich  utilized  simple  expressions  (extended  by 

p  O  c 

Penner  from  work  of  Raizer  ’  )  for  the  bound- free  and  free- free  continuum 
absorptivities  for  a  homogeneous  temperature  since  the  homegeneous  temperature 
was  found  by  experimental  measurements  to  be  a  reasonable  approximation  for  the 
measured  temperature  distribution  in  the  arc.  The  calculated  spectral  trans¬ 
mission  of  this  model  was  found  to  differ  by  a  factor  of  four  from  experimental 
measurements6. 
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Comparison  of  spectral  transmissivities  calculated  using  the  spectral 

absorptivities  computed  according  to  the  methods  of  Biberman,  Norman,  and 
7- 12  1^ 

Yankov  and  of  Schltiter  '  with  experimentally  measured  spectral  trans¬ 
missivities  of  I’rv.ctt ,  Schawlow,  and  Weinberg^,  and  subsequent  work  of 
14 

Harding  ,  discussed  in  this  report,  show  a  good  correspondence  at  wavelengths 

less  0.65  n,  but  wide  variations  for  the  longer  wavelengths  to  at  least  0.95  U* 

Experimental  measurements  of  the  profiles  of  the  strong  of  xenon  lines  in  the 

infrared  indicated  that  the  broadening  and  the  saturation  of  these  lines  in  the 

infrared  could  account  for  a  major  portion  of  the  difference  in  the  8OOQA0 

spectral  region  between  the  absorptivities  calculated  considering  only  free- 

free  and  free-bound  transitions  and  the  absorptivities  measured. 

To  aid  in  these  model  studies,  it  was  felt  necessary  to  measure 

the  spectral  absorptivities  of  xenon  as  a  function  of  temperature  and  pressure, 

and  compare  the  values  with  theoretical  calculations.  The  saturation  of  the 

spectral  radiance  at  wavelengths  at  which  the  arc  becomes  optically  thick  (at 

the  peaks  of  the  strong  lines  or  of  the  continuum,  in  the  infrared)  nas  allowed 

determination  of  the  temperature  of  the  core  of  the  arc  channel,  (assuming  the 

arc  to  be  homogeneous  in  temperature).  The  temperature  thus  measured  has  been 

used  to  measure  wavelength  dependence  of  the  Zeta  factor  (the  Biberman  and 
7 

Norman  Zeta  factor  ),  which  related  the  spectral  absorptivity  of  the  continuum 
to  the  particle  density  and  temperature  in  the  plasma.  Ccmpuriocu  of  the  measured 
values  with  recently  published  theoretically  calculated  values  of  Schltiter 
indicates  a  reasonable  correspondence  both  in  magnitude  and  variation  with 
wavelength.  The  spectral  radiances  that  we  have  measured  at  various  input 
energy  levels  has  been  compared  with  theoretical  calculations  using  the  simple 
models  for  the  arc  plasma  together  with  spectral  absorptivities  calculated  using 
Schltlter's  theoretically  calculated  values  of  the  Zetr.  fretor. 
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Hie  dependence  of  the  electrical  conductivity  upon  temperature  (and 
preasure )  vac  alao  measured,  Ihe  experimentally  determined  electrical 
conductivity  was  appreciably  lover  than  the  calculations  made  according  to 
methods  ci'  Epitr.er  and  hi';  roll  abovo  tors 

To  improve  the  model  investigations,  techniques  for  handling 
radiative  transport  have  been  developed  for  calculating  the  radiant  emittance 
from  an  inhomogeneous  temperature  distribution,  which  would  include  the 
absorption  in  the  vacuum  ultraviolet  by  the  cool  gas  near  the  walls  of  the  tube. 
Ibis  work  is  contained  in  Appendix  A.  The  iterative  solutions  to  the  differentia: 
equations,  describing  the  energy  or  power  balance  within  the  arc  to  find  the 
temperature  distribution,  were  found  not  to  have  a  satisfactory  rate  of 
convergence.  The  techniques  being  developed  under  the  contract  for  handling 
radiative  transport  within  a  non-gray  inhomogeneous  temperature  gas  are  generally 
applicable  to  other  plasma  problems.  Currently  the  radiative  transport  techniques 
are  being  applied  using  the  continuum  absorptlvities  calculated  using  the  theory 
of  Biberman,  Herman,  and  Yankov7'12,  and  an  approximation  to  the  transport 
properties  which  includes  electron-elect™,  electron- ion,  and  neutral-neutral 
scattering  (due  to  Fay17),  mis  transport  properties  calculation  neglects 
electron-neutral  interactions.  The  theoretical  calculations  of  the  transport 
properties  incorporating  the  electron-neutral  scattering,  which  for  xenon, 
krypton,  and  argon  involves  the  Bamsauer  minimum18,  which  were  discussed  in 

the  First  semiannual  Report1  complex  than  we  had  originally  envisioned  and  will 
be  dealt  with  in  subsequent  work. 

The  inclusion  of  the  lines  into  the  models  has  proved  to  be  uncertain 
due  to  the  lack  of  data  on  the  absolute  transition  probabilities  and  the  line 
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broadening  parameters  for  xenon.  Since  some  of  the  lines  of  xenon  are  thought 

to  be  L-S  coupled  (according  to  Moore1^ ),  a  Bates-Damgaard20  calculation  of 

the  absolute  transition  probabilities  of  a  number  of  the  L-S  coupled  lines 

has  been  made.  These  calculated  absolute  transition  probabilities  were  used 

to  obtain  a  temperature  to  estimate  the  absolute  transition  probabilities  for 

the  other  lines  of  interest  in  the  infrared  from  the  intensities  listed  in 

21 

the  American  Institute  of  Physics  Handbook  .  This  work  is  described  in 
Appendix  B. 

The  ALGOL  computer  prog rams  for  the  Burroughs  B-5^00  DISK  Computer 
that  were  developed  in  this  contract  are  in  Appendix  C. 

The  work  in  Contract  Nonr  46Vf(00)  has  been  directed  towards  formu¬ 
lating  the  model  for  the  radiative  arc,  and  then  evaluating  the  model  by  incor¬ 
porating  gradually  more  details  and  features  of  the  arc  plasma.  Many  aspects 
of  this  problem,  particularly  those  of  radiative  transport  in  a  non-gray  gas 
and  the  transport  properties  of  a  partially  ionized  plasma,  involve  basic 
questions  in  plasma  physics.  The  techniques  developed  on  this  contract,  both 
theoretical  and  experimental,  will  be  useful  in  solving  many  other  problems 
involving  radiation  transport  in  partially  ionized  plasmas. 
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CHAPTER  2 

Theoretical  Calculations  of  the  Physical  Properties  of  the  Arc  Plasma 

In  order  to  construct  models  for  the  plasma,  and  as  the  work  has 
progressed,  to  provide  a  basis  for  comparison  of  our  experimental  values  with 
theoretical  calculations,  we  needed  to  calculate  the  spectral  absorptivities 
and  the  transport  properties,  electrical  and  thermal  conductivity,  as  a 
function  of  temperature  and  pressure.  The  basis  for  orr  choice  of  the  calcula¬ 
tions  for  these  properties  is  discussed  fully  in  the  Semiannual  Report1 

7 

Briefly,  we  felt  that  the  Biberman  &  Norman  method  for  calculating  the  spectral 

absorptivity  of  the  continuum  was  the  most  satisfactory  approach.  Particle 

densities  necessary  to  calculate  the  spectral  absorptivities  and  the  transport 

properties  were  calculated  as  a  function  of  temperature  and  pressure  using 

22  2^ 

standard  methods,  similar  to  that  of  Drellishak  ’  J  et  al. 

In  the  calculations  to  be  discussed,  we  have  used  a  simple  method 
to  calculate  the  electrical  conductivity,  due  to  Spitzer  and  his  collaborators1^ 
Work  that  we  have  in  progress  with  the  aid  of  Dr.  R.  S.  De  Voto  of  Stanford 
University  seeks  to  determine  experimentally  and  theoretically  the  values  of 
conductivity  that  actually  exist  in  the  plasma.  These  measurements  are  briefly 
discussed  in  Section  4.5. 

The  portions  of  the  sections  that  follow  will  expand  on  these  brief 
descriptions. 

2.1  Theoretical  Calculation  of  the  Spectral  Absorptivity  for  Free-Free  and 
Free-Bound  Processes 

In  order  to  calculate  the  radiative  emission  flux  from  an  arc  plasma, 
the  spectral  absorptivity  of  the  plasma  must  be  determined.  If  the  temperature 


l6 
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and  pressure  of  a  gas  is  known,  and  LTE  can  be  assumed,  one  can  in  principle 

determine  the  spectral  absorptivity  and  emission  coefficient  due  to  free- free 

and  free-bound  transitions.  The  emission  coefficient  and  spectral  absorptivity 

of  the  rare  gases  were  determined  using  the  quantum  defect  calculations  of 
7-12 

Biberman  and  Norman  as  originally  adapted  to  this  problem  by  Seaton  and 

_  2k 

Burgess  . 

For  a  plasma  in  LTE,  Kirchhoff *s  law  holds.  The  emission  coefficient 


may  be  written  as 


eU  a  K'xPx> 


(2.1) 


where  -  emission  coefficient 
-  spectral  absorptivity 


B^  -  Planck  function. 

The  effective  spectral  absorptivity  which  includes  stimulated  emission  is  given 


(l.e-h"/kT) 


(2.2) 


X)  X>  '  '  ' - ' 

where  K ^  is  the  spectral  absorptivity.  is  given  by 

*v-lKv  (2-3) 

where  k is  the  spectral  absorptivity  of  the  atomic  or  ionic  species  i.  In 
the  Biberman  and  Norman  technique  for  determining  the  spectral  absorptivity 


of  an  atom  or  ion  the  energy  levels  of  the  system  are  divided  into  two  classes 

(Fig.  3  -  Reference  12).  In  the  determination  of  the  expression  for  the  spectral 

absorptivity,  the  upper  levels  in  the  frequency  region  denoted  by  b  are  integrated 

S 

over.  The  the  low  lying  widely  separated  levels,  an  absorption  cross  section  is 

Q 

calculated  for  each  level.  This  has  been  done  by  Yankov  for  the  xenon  atom, 
for  the  level  series  up  to  8s.  The  spectral  absorptivity  k*  for  each  series 


of  levels  of  the  species  is  then  obtained  by 


m» . . . . 
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k  .  *  a  >  If¬ 
ni  nl  nl 


(2.1.) 


where  a  ,  is  the  absorption  cross  section  for  the  nl  series  of  levels  and 
nl 

N  ,  is  the  number  density  of  those  levels.  Assuming  Boltzman  statistics 
nl 

and  relating  this  to  the  ground  state  we  have 

4  /irtn 


i  sne  -hU  /kT 

k  ,  =  (j  ,  Ug -  e  nl' 

nl  nl  °  g 

g 


(2.5) 


where  N  is  the  density  of  the  ground  state  and  g  ,  and  g  are  the  statistical 
g  jo  nl  g 

weights  of  the  nl  series  and  the  ground  state  respectively.  The  spectral 
absorptivity  for  each  of  the  nl  series  is  then  added  to  the  spectral  absorptivity 
due  to  the  integrated  lines  and  the  free- free  absorption.  The  spectral  absorptivity 
due  to  the  integrated  lines  and  the  free-free  spectral  absorptivity  for  specieB 


i  is  given  by  the  following  : 


where 


2Qi+l 

_  -u  ■ 

=  A 

Qi 

T  e 

1 

2Q1+1 

_  -u  ■ 

a  A 

% 

T  e 

1 

,  l67T^ke0  -,-21+  2  -3  ov- 1 

A  =  =  .89  x  10  cm  sec  J  K 

3V3  ch 


(2.6) 

(2.7) 

(2.8) 


ui  =  w^ere  “  threshold  frequency  for  photo  ionization  from 


ground  state 


hV 

Ug  =_kT 


=  core  charge  of  the  residual  ion 

ss  internal  partition  function  of  the  i  species 
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S.  c  j  ®j  e  ^  where  the  sum  is  over  all  energy  levels  of 
the  species  and  E^  is  the  energy  of  the 
level  above  the  ground  state. 

1^  =  number  density  of  the  ith  species 

^(b)  =  a  correction  factor  for  species  i  as  calculated  for  the 

xenon  ctom  by  Biberman,  Norman  and  Ulyanov11,  (zeta  factor) . 
(Recent  work  by  SchlUter13  shows  quite  different  values  for  £  that  agree  more 
closely  with  our  experimentally  determined  values.  See  Section  4.4).  Then 
one  has  for  the  total  absorption  coefficient  of  the  species  i  the  expression 


where  the  sum  is  over  all  series  of  levels  considered  independently,  of  course 
the  more  levels  considered  independently  the  greater  the  accuracy  should  be. 

In  order  to  calculate  K1,  one  needs  to  know,  other  than  the  correction 
factor  ^(U),  each  species  partition  function  each  species  density  and 
the  temperature  T.  If  one  can  experimentally  determine  the  temperature  then, 
under  the  assumptions  stated  earlier,  ore  can  calculate  reasonable  values  for 
Qp  and  N^.  This  will  be  discussed  now. 

^•2  Partition  Functions  and  Electron  Densities 


As  stated  earlier  we  have  for  the  partition  function 


r  e-E> 

J  J 


(2.10) 


The  sum  is  over  all  levels  and  therefore  diverges  for  a  free  atom  or  ion. 

However,  in  a  plasma,  electrons  tend  to  cluster  about  the  ions.  Thus  when  an 
ion-electron  pair  is  produced  a  certain  amount  of  energy  is  released.  Ionisation 
potentials  are  reduced  by  this  amount  of  ordering  energy  which  is  dependant  upon 
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the  charge  of  the  particle,  the  plasma  density  and  the  temperature.  Thus  the 
partition  function  summation  must  he  truncated  at  an  energy  value  of 

(2.11) 


s1  -  h  ■  AIi 


where  I  is  the  isolated  ionization  potential  of  species  i  and  AI^  is  the 

25 

ionization  potential  lowering  of  that  species,  given  by 

AI  »  2(Z.  +  l)e3  (Tf/kT)1/2  (N  +  £  Z?  N  )^2  (2.1 2) 

1  1  '  i  ^  ^ 

for  a  Debye- Huckel  plasma.  For  the  tables  which  have  been  tabulated  by 


Charlotte  Moore  •  ,  g^  is  given  by 


gk  a  2  Jk  +  !. 


(2.13) 


For  those  nl  levels  which  have  been  approximated  for  xenon  by  McChesney  and 

26 


Jones 


*  f  <2  Jn  +  ^ 


(2.1M 


where  the  sum  is  over  all  J  states  for  a  given  nl  term. 

These  partition  functions  are  then  used  to  calculate  the  electron 

22  27 

density  for  an  LTE  plasma  using  the  Saha  equations  }  : 


”i  +  lNe  c  (2  mk}3/2  2  °i  +  1  ^/2  ^(^  -  Al^/kT  (2il5) 

Wi  h2  Qi 

If  n  is  the  highest  degree  of  ionization  of  the  monatomic  gas,  there  will  be 


n  +  2  species  of  particles  present.  The  set  of  Saha  equations  then  gives  n 
equations  in  n  +  2  unknowns.  The  other  two  equations  necessary  to  solve  for 
all  the  particle  densities  is  given  by 


■  to 


i  IT  and 


0+1)  N. 


(2.16) 


(2.17) 


N  is  the  total  particle  density  as  is  given  by  the  equation  of  state.  The 
equation  of  state  used  is  the  ideal  gas  law 


p  a  RvkT 


(2.18) 


The  corrections  to  this  for  a  Debye- Huckel  interaction  have  been  discussed 
25 

by  Griem  .  Therefore  if  one  is  given  the  temperature  and  pressure  one 
can  solve  for  the  electron  density  and  the  various  atom  and  ion  densities  once 
the  partition  function  series  sum  is  known.  However  since  the  truncation  of 
this  sum  depends  on  the  particle  densities  an  iteration  procedure  must  be 
employed.  This  has  been  done  by  Drellishak,  et  al.  *  for  argon*.  A 

computer  program  has  been  written  and  the  partition  functions,  electron, 
atom,  and  ion  densities  and  the  ionization  potential  lowering  for  xenon  were 
calculated.  The  program  employs  certain  improvements  over  Drellishak' s 
calculation.  The  cutoff  of  the  partition  function  series  and  the  ionization 
potential  lowering  are  obtained  as  we  described  earlier  rather  than  by  a 
principal  quantum  number  cutoff  method  assuming  Bohr  type  orbits  as  employed 
by  Drellishak.  At  very  high  electron  densities  and  high  temperatures  the  principal 
quantum  number  cutoff  will  inti’oduce  errors  in  the  partition  functions. 

*NOTE:  An  error  exists  in  Equation  (12)  of  reference  2h.  This  equation  should 


N+l  A  ..  !  N+l-i  / ,  . .  x  „  N-i  /,  i  v)  n  ,0  ,0\ 

ne  +  |  i  ne  (i+1>  -  ntne  rol  M  "  0  (2,19) 

Although  this  formula  is  incorrectly  stated  in  references  22,  23,  and  28  the 

correct  one  is  used  in  the  computer  calculations  so  the  results  of  those 


references  are  not  affected. 


12  - 


2.3  The  Absorption  Coefficient  of  the  Lines 

The  contribution  of  the  bound-bound  state  transitions,  the  spectral 
lines,  to  the  absorption  coefficient  is  more  difficult  to  calculate  due  to 
the  requirements  for  absolute  values  of  the  transition  probabilities  for  all 
of  the  lines  that  may  be  involved  including  those;  in  the  infrared  or  ultra¬ 
violet.  The  relative  effect  of  the  lines  upon  the  radiant  emittance  varies 
with  temperature  and  pressure  tending  to  be  greater  (but  not  always)  for  the 
lower  temperatures  and  high  pressures-- conditions  similar  to  those  in  flash 
tubes.  Our  calculations  of  the  transition  probabilities  are  discussed  in 

Appendix  B.  Work  is  in  progress  towards  extending  the  Stark  broadening  theory 
29 

of  Griem  and  other  to  the  lines  of  xenon  in  the  infrared. 

2 . 1*  The  Electrical  and  Thermal  Conductivities  for  a  Fully  Ionized  Plasma 

The  electrical  conductivity  is  taken  to  be  that  of  e  fully  ionized 

plasma  using  the  theory  of  Spitzer  and  his  coworkers'1' *  .  As  the  power  input 

to  the  arc  which  is  given  by  a  I? ,  is  probably  only  appreciable  in  che  fully 

ionized  portion  of  the  arc  discharge.  The  Spitzer  theory  for  a  fully  ionized 

plasma  considers  only  electron- electron  and  electron- ion  scattering,  which  are 

30 

the  dominant  processes  for  material  that  is  more  than  about  .1$  ionized  . 

(We  are  using  "fully  ionized"  in  the  sense  that  only  those  processes  need  be 
considered). 

There  is  one  major  difficulty  in  applying  the  Spitzer  theory  to  the 
plasmas  in  high  energy  flash  tubes.  This  difficulty  arises  from  the  high 
electron  density  but  relatively  low  temperature  which  exists  in  the  arc  discharges, 
for  which  the  theory  is  not  considered  valid  as  the  coulomb  logarithm  term 
(denoted  as  InA)  goes  to  zero  and  the  errors  are  of  the  order  of  l/lnA,  due  to  the 
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neglect  of  close  encounters  in  the  Fokker- Planck  equation  used  in  the  derivation. 


31 

Following  Spitzer  ,  the  electrical  conductivity  o  is  given  by  this  equation: 
T3/5  ST_ 


a  = 


3.80  x  103  Z.lnA 
11 

and  the  thermal  conductivity  K  by 


in  (ohm  cm) 


-1 


(2.20) 


1.95  x  icr 


ll  t5/£ 


6T, 


K  = 


K 


Z,  In.  A, 

1  X 


(2.21) 


8T-,  and  51'  are  correction  factors  dependent  upon  Z . ,  vhich  is  the  ionic  charge 
K  1 

(note:  Z  =  1  for  a  singly  ionized  gas).  From  Cohen  et  al.  is  the  ratio 

of  the  Deoye  shielding  parameter  h  to  the  impact  parameter  b^  (bQ  is  the  distance 

for  a  90°  deflection  of  an  electron  by  a  positive  ion). 

1/2 

(2.22) 


i  ‘  -  ;3Z 


o 


When 


i 

16 


<  12  7T,  Cohen  et  al.  and  others 


.17,32,33 


suggest  using  for  z  =  1 


-A_=,  . |-rp-  rather  than  the  above  value.  (2.23) 

el  ' 
e 

This  is  equivalent  to  substituting  the  interionic  distance  (N  ’■ty  ^ )  for  the 
Debye  shielding  parameter  h. 

In  common  units,  for  Z  =  1,  lr.  from  equation  3. 10  is  given  as 


m3 

ln^B  9.1+3  +  1/2  ini. 

1  e 

for  T  in  °K  and  N  in  particles/cm3.  The  correction  factors  5T„  and 
given  by  Spitzer  and  Harm  in  terms  of  Z  (the  integral  values  of  Z,  a 
may  be  obtained  by  interpolation  between  the  values  in  the  following 


(2.24) 

5T^  are 

value 

table"1"3: 
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Z  =  1 

Z  at  2 

Z  «  b 

z  =  .16 

Z  =  CO 

&te 

.582 

.683 

.785 

.923 

1 

6tk 

.225 

.356 

.513 

.791 

1 

2.5  The  Thermal  Conductivity  in  the  Boundary  Layer  (Used  in  Appendix  A) 

The  thermal  conductivity  in  (either  the  simple  or  complete  case) 
is  a  source  of  great  concern  in  this  investigation.  The  major  influence 
of  the  thermal  conductivity  heat  transfer  in  the  pulsed  arc  discharges  lies 
in  the  boundary  region  between  the  arc  discharge  channel  (where  the  a  E^ 
terms  are  dominant)  and  the  relatively  cool  wall  containing  the  arc.  We 
say  relatively  cool  as  the  temperature  of  the  wall  is  assumed  to  be  on  the 
order  of  the  boiling  point  of  quartz  (2800°K  )  or  probably  much  less.  In 
this  boundary  region,  there  can  be  extremely  high  thermal,  electron  density, 
and  neutral  particle  density  gradients  (the  latter  being  of  opposite  sign 
from  the  first  two).  Simple  approaches  to  thermal  conduction,  such  as  that 


shown  graphically  in  Fay  and  in 


Reilly31* 


for  argon  and  xenon  use  Spitzer 


conductivity  down  to  temperatures  at  which  the  neutral  particle  thermal 
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conductivity  becomes  dominant  .  This  may  be  correct,  or  it  may  be  off  by  an 
order  of  magnitude  at  one  temperature  or  another.  The  neglect  of  the  electron- 
neutral  conductivity  in  gases  with  a  Ramsauer  minimum,  such  as  argon,  krypton 
and  xenon  have,  may  lead  to  large  errors.  There  have  not,  as  yet,  been  any 
definitive  experiments,  that  ve  could  find  in  the  literature,  on  the  measurement 
of  the  thermal  conductivities  of  partially  ionized  plasmas — much  less  those  in 
a  high  temperature  and  electron  density  gradients  at  the  particle  densities  we 
are  concerned  within  the  flash  tubes. 


BuRfilHIl1 
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The  thermal  conductivity  given  in  the  previous  section  is  that 
derived  from  Spitzer's  theory  and  is  probably  a  reasonable  representation 
of  the  thermal  conductivity  in  the  arc  channel  proper.  For  the  boundary 
layer  region,  for  the  simple  representation,  Fay's  approach1^  was  used 
calculating  the  values  corresponding  to  the  pressure  in  the  flash  tube. 
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CHAFThR  3 

The  Model  Studies 

3«1  Introduction  to  the  Model  Studies 

An  arc  discharge  may  have  many  different  temperature  distributions . 
If  a  major  portion  of  the  power  put  into  the  arc  is  carried  away  by  thermal 
conduction,  then  thermal  conduction  power  transport  within  the  arc  and 
external  to  the  arc  causes  the  variation  of  temperature  with  arc  radius . 

This  occurs  when  the  radiative  flux  from  the  arc  is  small  compared  to 
the  thermally  conducted  power ;  it  usually  occurs  in  low  pressure  arcs. 

If  the  plasma  in  the  arc  is  optically  very  thick  over  a  major  portion 
of  the  spectral  region  of  emission,  the  radiative  power  transport  within 
the  arc  will  lead  to  a  temperature  gradient  similar  to  that  of  the 
thermal  conduction.  As  we  had  mentioned  in  the  previous  report,  the 
optically  thick  radiative  flux  is  directly  analogous  in  its  effects  to 
thermal  conduction. 

If  the  radiation  emitted  balances  a  major  fraction  of  the 
input  power  (i.e.:  thermal  conduction  losses  are  small),  and  the  arc 
is  optically  thin  over  a  major  portion  of  the  spectral  region  of  interest 
(this  case  appears  to  be  that  for  the  pulsed  flash  lamp  at  normal 
energy  loadings)  the  temperature  within  the  arc  will  not  change  appreci¬ 
ably  with  radius  except  at  the  very  edge.  The  temperature  distribution 
can  be  taken  to  be  constant  in  the  arc  channel. 

Appendix  A  shows  our  progress  towards  solving  the  radiative 
transport  problem  for  models  having  a  non-homogeneous  distribution 
which  is  necessary  for  solving  the  radiant  energy  balance  equation 
discussed  in  the  Semiannual  Report1  to  obtain  the  temperature  distribution. 
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The  two  new  models  that  will  be  discussed  in  the  following 
sections  assume  constant  temperature  in  the  arc  channel;  that  is,  the 
arc  channel  is  homogeneous  in  temperature.  Experimental  measurements 

g 

of  the  radial  distribution  of  the  spectral  transmissivity  and  of  the 
spectral  radiance  is  the  ultraviolet  (to  be  discussed  later)  support 
this  assumption. 

The  arcs  to  be  considered  will  be  steady  state  arcs  in  which 
the  electrical  power  input  is  balanced  by  the  power  radiated  from  the 
aic  and  that  carried  away  by  thermal  conduction.  A  more  complete  cal¬ 
culation  for  pulsed  or  AC  arcs  would  require  the  inclusion  of  the  power 
required  to  ionize  the  gas .  The  calculations  to  be  presented  will  also 
neglect  thermal  conduction  tc  the  arc  boundaries  such  as  the  walls  and 
the  electrodes . 

3*2  Analysis 

The  power  is  generated  in  the  arc  by  resistive  heating;  this 
power  is  balanced  by  the  sum  of  the  radiated  power  and  the  power  carried 
away  by  thermal  processes,  such  as  conduction  and  convection.  In  equation 
form,  this  balance  is"5 


div  (F+  Frc)  =  oEc 


(5.1) 


where  E  is  the  electric  field  in  volts/cm,  a  is  the  electrical  conducti- 

-1  -  g3 

vity  in  ohm  ,  F  is  the  radiant  emittance  vector  in  watts/cm  ,  and  F 

HC 

is  the  vector  representing  the  power  carried  away  by  the  thermal  processes. 


Fup  and  the  convection  heat  transfer  vector  denoted  by  F„: 
nO  C 

*HC  =  +  fC 


(3-2) 


- 
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The  convection  term  is  usually  small  and  will  be  considered  negligible 

in  this  calculation.  The  thermal  conduction  term  F„  is  usually  expressed 

ri 

in  terms  of  the  thermal  conductivity,  K,  by 

Fh  =  -K  grad  T  (3*3) 

where  T  is  the  temperature  and  grad  T,  the  temperature  gradient  at  the 
point  at  which  F  is  being  measured .  The  units  of  K,  the  thermal  conduc¬ 
tivity,  are  watts  cm  ^  °K  1  cm. 

Equation  3.1  can  be  integrated  over  the  volume  surrounding  the 

arc . 

J  J  f  div  (F  +  FHC)dV  =  Jjj  a  E2  dV  (3-4) 

V  V 

The  integral  over  the  arc  volume  can  be  transformed  by  the  Gauss  Theorem 
to  an  integral  of  the  normal  component  over  the  surface  are  A 

JJ  (»+V«a.l  ^’ffj'^  H  'HI/ 

component 

Let  us  now  confine  our  discussion  to  arcs  of  infinite  length.  For  a 
volume  of  unit  length,  the  power  flow  through  the  end  surfaces  balance 
so  we  need  to  consider  only  the  power  flow  through  the  boundary  surfaces. 
The  coordinate  system  for  the  models  being  considered  is  so  chosen  that 
the  x-direction  is  normal  to  the  surface,  and  the  x- component  of  F  and  FR 
is  then  the  normal  component  which  is  to  be  integrated  over  the  surface 
area . 

The  power  radiated  by  the  arc  is  given  by  F,  the  radiant 
emittunce.  F  is  the  integral  over  all  frequencies  (i.e.,  energy  units) 
or  all  wavelengths  of  the  spectral  radiant  emittance,  Fv  or  \ ,  in 
frequency  or  wavelength  units,  respectively. 
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F-J  FV  *  -J  Fx  dx 

C  0 


(3-6) 


F  may  be  expressed  per  cm  or  micron  of  wavelength;  Fv  can  be  in  cm  , 
sec  F  or  energy  units . 


In  converting  between  the  units,  remember  that 

X  =  -  =  y  and  AX  =  -  —  -An  =  -  ~  & 
n  V  2^.2 

n  V 


(3-7) 


We  will  use  cm  units  in  the  calculation,  but  refer  to  them  as  frequency 


units . 


Let  us  now  consider  the  x  component  of  the  spectral  radiant 


emittance  ^  (P) .  (P)  is  the  total  power  per  unit  frequency  interval 

x  x 

flowing  across  a  unit  area  perpendicular  to  the  x-direction.  It  is 


given  by  the  integral  over  all  angles  of  the  Component  of  the  spectral 


radiance  I  (P,S)  in  the  x-direction. 


f  ■ 

^  (P)  »  ^  \  (P,S)  cos  (S,x)  d« 


(3.3) 


Figure  1  shows  this  relationship.  The  spectral  radiance,  Iy,  is  the  basic 
unit  in  radiative  power  transport.  For  a  given  direction  S,  Iv(P,S)  is 
the  power  per  unit  frequency  (or  wavelengths),  per  solid  angle  per  unit 

area  perpendicular  to  the  direction  S  at  a  point  P.  I^has  the  units 

-2  -1  -1 
watts  cm  cm  steradian  for  frequency  in  cm  units,  (i^  has  the  units 

-2  - 1  - 1 

watts  cm  cm  steradian  for  wavelengths  in  cm).  I  or  I  is  also 

V  K 

called  the  specific  intensity  of  radiation.  It  is  the  radia  metric  unit 
corresponding  to  luminance  (or  brightness)  in  photometric  units. 

The  spectral  radiance  is  related  to  the  properties  of  the 
medium  through  the  equation  of  transfer  which,  for  a  medium  in  local 

•30  lif) 

•i-t.  'JS  l  T  miTM  ^  n  v-i  "U  /-» 


thermal  equilibrium 


(LTE)  can  be  written  as 
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in  which  K'v,  is  the  spectraL  absorption  coefficient  including  stimulated 
::‘on  and  By'T)  the  Flanck  function  for  a  temperature,  T.  k\  is 
related  to  the  more  usual  spectral  absorption  coefficient  by  the  equation 

=  r  (1  -  e"h  /RT).  (3.10) 

k^,  the  spectral  absorption,  is  a  function  of  the  arc  medium  at  that 
temperature  and  pressure.  It  may  arise  from  discrete  transitions 
(lines),  or  from  transition  between  bound- free  or  free- free  states 
(continuum) . 

4l 

Following  Lutz,  using  standard  techniques  for  solving  a 

k2 

first  order  differential  equation,  the  solution  can  be  found  for 
equation  3*9*  We  assume  that  no  radiance  is  incident  upon  the  system 
and  the  temperature  is  homogeneous;  thus,  there  is  no  variation  of 
with  S . 

^-^(T)  [1  -  e"KV  S]  (3.11  ) 

We  will  apply  this  to  a  plane  parallel  slab  and  a  cylinder  of 
homogeneous  temperature . 

3-3  Plane  Parallel  Slab  of  Homogeneous  Temperature 

The  geometry  of  the  plane  parallel  slab  is  shown  in  Figure  2. 

As  S  =  x  sec  q  ,  equation  3* II  becomes 

\  =  BV(T)  [1  -  e^v  X  860  0  ]  (3-12) 

We  want  the  radiant  emittance  at  P  =  P  (0,0,0)  in  the  x-direction 

(actually  negative  x) .  So  using  3*12  in  equation  3*8  yields 

F  =  J  27r J  ^  BV(T)  [1  -  e"Tv  secS]  cos  6  sin  6ded0(3.13) 
X  0*0  6= 0 

where  =  k'v  x 


0 
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Integrating  over  0  yields 

f  f7^  l 

F  -  2ttBv(T)  •  1/2  -  j  e"VeC  cos  9  sin  0d0  > 

x  V  o  j 


(3-14) 


Let  u  =  sec  0, 

The  integral  reduces  to  the  exponential  integral  of  the  third  order**1’  43 
7T/2 


-t  sec  0 

e  cos  0  sin  0d0 = 


■  TU 


duz£3  (t) 


(3-15) 


The  exponential  integral  of  third  order43  may  be  integrated  twice  by 
parts  to  the  first  exponential  integral  denoted  by  e  (t) 


L0  (t)  =  e  T  ("T)  +  *  E1  (t) 
J  ‘  2 


■where  E. 


i  <*/  V- 


du,  the  first  exponential  integral. 


(3.16 

(3.17; 


The  properties  of  the  first  exponential  integral  are  discussed  and  the 
values  tabulated  in  a  number  of  places  (for  example  references  (43)  and 

m).  For  calculations  on  a  computer,  there  are  two  useful  expansions:4 
For  0  <t  <  1 

E,  (t)  =  In  t  +  &o  +  a^T  +  a/  ♦  a3T3  +  a/  t,/t  ,<t)  (3.l8 


a0  -  .577215 66 

-99999193 
a2  .24991055 
where  /c(t  )  /  <5  x  10"5 
For  1  <  t  <  •» 

Ei 


a1  “2.33473 

a2  =  0.250621 


a3  .05519968 
Si4  .00976004 
a  .00107857 


if 

t  +  a.  t  +a „\  ,  . 
— - l _ _2  +  £  (t) 


(3-3 


T  +  b  T  +  b 


bX  «  3.330657 
b2  =:  1.681534 


-  2k  - 


where  |e  (r)|<  5  x  lO-^ 

The  spectral  radiant  emittance  in  the  x- direction  is  given  by 

Fv  -  7TBV(T)  '  1  +  (rv-l)e' Vty  E  (ry)  :  (3.20) 

x  1 

The  radiant  emittance  F  may  be  considered  as  the  sum  of  the 
integrals  over  the  optically  thick  and  optically  thi"  spectral  regions 

r  » 


r 

x 


F  d 
vx  v 


TX  D 

TK 


(TK)  dv 


(3-21) 


(Tf5  av 


Fy  (TN)dv  (3-22) 


Each  of  the  separate  integrals  over  the  various  thick  and  thin  spectral 
regions  may  be  calculate!  to  allow  an  estimate  of  the  energy  to  nnsfer 
within  the  plasma,  which  of  course,  is  neglected  in  this  model  of  homo¬ 
geneous  temperature. 

The  electrical  field  51  was  calculated  to  be  that  necessary  to 
create  twice  the  radiant  emittance  in  the  x  direction  to  account  for  both 
sides  radiating.  The  radiant  emittance  in  the  y  and  z  directions  were 
balanced  by  that  from  adjacent  sections  in  the  infinite  extent  plane 
parallel  slab. 

This  balance  of  radiant  emittance  and  electrical  power  is 


expressed  as 

dE?d=  2  F 

X 

(3.23) 

where  d  is  the  plasma 

thickness 

*  -Vi* 

(3*24) 

The  current  density  J  in  the  plane  parallel  slab  was  calculated  from 


J  =  dE 


(3-25) 
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if 

%Ja 


The  pressure  in  the  model  was 


p  =(N  +  N  )kT 

O  c 


(3.26) 


•where  is  the  electron  density  and  Nq  is  the  heavy  particle  density. 

3  A  Cylinder  of  Homogeneous  Temperature 

The  cylinder  of  homogeneous  temperature  represents  another 
simple  model  for  dee  xbing  an  arc  discharge .  The  cylinder  problem  is 
more  difficult  to  handle  than  the  plane  parallel  slab  due  to  the  boun¬ 
daries  existing  in  two  coordinates  rather  than  only  one,  thereby  making 
the  integral  over  F  more  coihplex. 

Figure  3  sh'”s  the  geometry  we  are  considering  in  a  fashion 
similar  to  the  parallel  slab  model;  we  can  write  the  spectral  radiance 
I  v  ( 9 .  ^5  )  at  the  point  P  (0,0,0)  on  the  edge  of  the  cylinder  as: 


I  (0,  0)  =  B,  C  1  -  e"KvS(9’  0b  r3.^7) 


V  '  '  -  '  ■  "V 

where  S(0,  0)  is  the  distance  through  which  the  radiation  travels  in 
the  cylinder  of  homogeneous  temperature,  and  diameter  d.  Referring  to 
Figure  *)-,  S  is  expressed  as 

C(C,  0  )  r: 


2 

cos  9  +  tan  8  sin  6  sin  0 


(3.28) 


and  the  spectral  radiance  I  (0,  0 )  is 

IV  =  Bv  (1_exP 


-Kyd 


cos  0  tan  8  sin  8  sin0  (3*29) 

The  spectral  radiant  emittance  in  the  radial  direction,  F,,-  ,  is 

r 

given  by  . 

r  n ' 


FVr  =, 


I„  cos  8  sin  0  d  0  del 

V  v 


(3.30) 


Substituting  the  value  of  Iy  in  this  equation,  the  spectral 
radiant  emittance  is  as  follows: 
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infinite  cylinder  showing  coordinate  system 
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Dwg .  746A033 


Ellipse  in  x'y'  plane 
containing  S  (0) 


x\  y' 


Equation  of  ellipse  is: 

'2  '2  2 
x  -  x'd  +  y  *  sin  *<D  ■  0 

where  0 <  0  <  2  tt,  0<  0  <  t^2 

and  x'  -  S  cos  0;  y'  =  S  sin  0 

S  =  d/  cos  0  +  tan  0  sin  0  sin2<D 


Fig.  4-Radiation  traveling  through  a  cylinder  of  homogeneous 

absorption 
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n  27T  n  7?  2 
Fv  =BV  (T)  J  J  (1-exp 


.)  cos©sin:'dbd^  (3 >31) 


O  0 


cos6  +  tan  6  sine  sin  0 


The  first  te-m  within  the  integral  may  be  integrated  to  yield 


Fv  =  BV(T)  TT-4 J  T/2 


(exp  -  - - - g-) ;  osesinededp 

cos  e  +  tan  e  sin  e  sin  0  (3*32) 


Letting  |i  ■  cos  6  allows  this  equation  to  be  rewritten  as: 

fv  -Br<t)  v-hi-v2  r 1  exp — ^ — 

r  i  Ja  +  <1-0  si"  K 


Mdpd0  (3-33) 


This  integral  is  well-behaved  so  it  can  be  readily  integrated 
numerically.  Fv  when  integrated  over  all  V  yields  the  radian*  emittance 


in  the  radial  direction. 


Fv  dV 


(3.:*) 


Neglecting  thermal  conduction  heat  transfer,  the  radiant  emittance  per 
unit  length  integrated  over  the  radiating  surface  can  be  equated  to  the 


power  input  to  the  arc  plasma  per  unit  length. 


(3-35) 


As  Fr  is  independent  of  direction  and  ctE  is  invt  'iant  over  the  volume 


Fr  =  aI]2  f 


(3.36) 


Solving  for  E,  the  electric  field  intensity  for  the  cylinder 


of  homogeneous  temperature  is 


(3.37) 
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3*5  Comparison  of  Models  with  Experiment  -  Spectral  Radiance 

To  evaluate  these  models,  we  needed  theoretical  expression 
for  the  spectral  absorptivity  and  the  electrical  and  thermal  conduc- 
tives  as  a  function  of  temperature  and  pressure.  The  spectral 
absorptivity  calculation  was  discussed  in  Chapter  2  together  with 
the  particle  density  calculation.  Calculation  of  the  electrical 
conductivity  using  Spitzer  was  in  Section  2.k. 

The  results  calculated  using  this  cylindrical  model  together 
with  the  experimentally  measured  valves  are  shown  in  Tables  I,  II  and 
III  for  three  temperatures  and  pressures. 

The  three  temperatures  and  pressures  10,000  K,  7.6  ATM; 

11,500  K,  11ATM  correspond  to  the  three  temperatures  (  and  the 
pressures  resulting  from  the  homogeneous  temperature  assumption) 
measured  at  the  peak  of  the  arc  discharge  cycle.  These  measurements 
are  discussed  in  Section  k-3  Figure  5,  6,  and  7  (and  Figures  19,  20, 
and  21  on  a  linear  scale)  show  the  wavelength  dependence  of  the  spec¬ 
tral  radiances  on  Tables  I,  II,  and  IIT  and  the  neasured  radiances. 

These  results  are  discussed  further  in  Section  d.k. 

3 .6  Comparison  of  Models  with  Experiment:  Transmissivity  as  a  Function 
of  Current  Density 

In  order  to  obtain  an  estimate  of  the  validity  of  these  homo¬ 
geneous  temperature  models,  a  number  of  comparisons  were  made  with 
experimental  measurements,  both  by  other  workers  and  in  our  own  Labora¬ 
tory.  These  measurements  included  those  of  spectral  transmissivity,  ana 
of  the  radial  distribution  of  the  spectral  radiance.  These  measurements 
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1,9316*0? 

0.062 

7.0006*01 

2 . 4366*01 

1.0916*01 

1.0006*00 

1  ,9991.-01 

1.9996-01 

4.0416*01 

0.025 

5 . r  006*01 

1.4516*02 

1 .8416*0? 

1.0006*00 

1 , 748.-04 

3 , ?686*04 

8, 7876*00 

0.012 

1,0006*02 

5.7016*02 

7.2406*0’ 

1,1)006*00 

*.?306-05 

8.7306-05 

7.0856*00 

Table 1 
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FROM  Nil.  0.20H  III  no*  tl. III?  THE  V  ALOE  HE  Th1_  [N1EA44L  Of  ENI1  TS  l.?lT®*Oc  H4TTS/CM2  THICK 

RADIANT  EMlITANCE  E.  l.#ni«*oo  HAITS/Cw? 

ELfCIHIC  FIELU  E*  2./l«*4'M  VILIS/Ci 

Current  oinsiit  j.  2.i)oe**uj  aoh/cme 

TMEIA.O.ON  tv  Mill!  AL*N.  12/.  +  1R  NOE  NS  T  T  V  «S .  2N  A»  *1  A  P AR T 1 CLE S/CMi 

I.  11SOO.O  I'EGREES  K.  P«  0.61  ATM 


L 


r* 

}  j 

LI 


HNU 

WflVlLFNlilH 

KAw»M-0R1ME 

1  All 

E  V 

m  ic*n\s 

1  /CM 

?«. / 00  ' 

5.0000-v? 

4,574»+oi 

5.8089*01 

22. son 

5  .5000-0? 

i  ,073-*02 

1  .  3639*0? 

20.662 

6.000»-02 

l  .S87.-  +  02 

?.01 59*02 

10.0/7 

6,5000-02 

2.02l«*0? 

2. 8670*0? 

17.  MO 

7 ,ouop-0? 

2,3v»0Ji4f)2 

3 , oanp*o? 

16.520 

7 ,5000-0? 

2.7  t  ^ *  (i  p 

3  »  450**0? 

15.006 

8.0000-0? 

2.  Qyv»*0? 

3 ,H0M*()2 

13. //A 

9.0000-0? 

3.4800*02 

4 .4060*02 

12.30/ 

1 .ooop-ol 

3,  *4  69*02 

ft  .8810+02 

11.80/ 

1  .0500-01 

1  ,  .3639-02 

1 . 7319-02 

8.265 

1 .5000-01 

2.79W9-0? 

3.5539-02 

6.190 

2.  000--01 

5.0349-02 

6.3939-02 

0.050 

2.5000-01 

f ,  ay  r«»o? 

1.0169-01 

4.132 

3#ouu0-oi 

1  ,  1 7 1 0- Ul 

1 ,4870-01 

3.542 

3.5000-01 

1*6129-0! 

2.0479-01 

3.090 

4.0000-01 

2.1919-01 

?. 7629-01 

2,755 

4.5000-01 

2.771»-0l 

3.5199-01 

2.470 

5.0000-01 

J  «  49M9-01 

4 , 44  30-U 1 

2.254 

5.5000-01 

2. 7529-01 

3. 4959-01 

2.066 

6.0000-01 

J. 2799-01 

a.  Uf  **ol 

1 .007 

6.5000-01 

1 .6339-01 

2,0739-01 

1.771 

7 • 0000-01 

1 .?a?»-Ol 

1.5779-01 

1.653 

7,5009-01 

1  . 4519-01 

1,6439-01 

C  •  1  Mi  ) 

HNU 

IN  U 

FNU 

i-e 

watts/cm 

STER 

wATTS/CM 

1.0009*00 

1  .2949-07 

1.2909-07 

3.2099-03 

1 .0009*00 

9,4.959-07 

9.4059-07 

2.4039-02 

1 .0009*00 

4,0029-06 

4.0629-06 

1.2329-01 

1.000»*00 

\  .9029-05 

1.9029-05 

ft. 0199-01 

1 • 0009*00 

6,0209-05 

6.0209-05 

1  ,5269*00 

1 .0009*00 

1 ,6119-04 

1.6119-04 

4,0030*00 

1.0009*00 

3.7669-04 

3.7669-04 

9.5424*00 

1.0009*00 

1.5039-03 

1.5039-03 

3.0099*01 

l . ooo9*oo 

4,3999-03 

4.  39V9-03 

1  . 1159*02 

1.7t6»-02 

6,0959-03 

1.1839-04 

2.9749*00 

3.4910-02 

0,4309-02 

2.9459-03 

7.4069*01 

6.1939-02 

2,0699-01 

1.7779-02 

4.4509*02 

V. 6579-02 

5,1569-01 

4,9009-02 

1  .2469*03 

1 . 3629-01 

6,9329-01 

9.5709-02 

2.3909*03 

1.0519-01 

0,0239-01 

1.4059-01 

3.6949*03 

2. 4299-01 

0,5419-01 

2.0749-01 

4.1399*03 

2.9669-01 

4,6569-01 

2.5679-01 

6.3309*03 

3.5079-01 

4,5139-01 

J. 0549-01 

7.5009*03 

2.9509-01 

0.2179-01 

2.4249-01 

4.9049*03 

3,4069-01 

7.0379-01 

2.6699-01 

4,5709*03 

1.0729-01 

7.4209-01 

1,3099-01 

3,4559*03 

1.4599-01 

6.9929-01 

1.0209-01 

2.5459*03 

1 .6039-01 

6,5719-01 

1.1069-01 

2.7549*03 

1  .550 

0,0009-01 

1 ,6770-01 

2.1290-01 

i .9is»-o; 

6.1670-01 

1.1830-01 

2.9410*03 

1.450 

0.5009-01 

1,91 94-01 

2.4349-01 

2.1838-01 

5,7050-01 

1.2510-01 

3.1060*03 

1.377 

9,0009-01 

2,3110-01 

2.9359-01 

2.S44R-01 

5,4260-01 

1,3800-01 

3.4170*03 

1.305 

9.5009-01 

?.607®-0l 

3.3119-01 

2 .81V, -01 

5,0920-01 

1.4350-01 

3.5470*03 

1.240 

1.0009*00 

2 ,9??9-()1 

3.71 10-01 

3.1008-01 

4,7620-01 

1,4620-01 

3.6560*03 

1.101 

1  ,0509*00 

3.2559-Ul 

4.1339-01 

3,3868-01 

4,4959-01 

1,5220-01 

3.7460*03 

1.127 

1 ,1009*00 

3.2699-01 

4.1590-01 

3.3488-01 

4,2300-01 

1.4370-01 

3.5380*03 

1  .074 

1 .1509*00 

2,9549-01 

3.7569-01 

3.1318-01 

3,9050-01 

1.2480-01 

3.0770*03 

1.033 

1.2009*00 

3.2910-01 

4, 167*-0l 

3.4088-01 

3  •  7500*01 

1.2810-01 

3.1530*03 

0.99? 

1. 2509400 

4.5029-01 

8,0190-01 

4.4128-01 

3,5499-01 

1.5660-01 

3.6290*03 

0.954 

1  •  3009*00 

5.0370-01 

6, 3969-01 

4.7258-01 

3,3550-01 

1,5850-01 

3.6710*03 

0.918 

1 ,3509*00 

5.5149-01 

7.0039-01 

5.0358-01 

3,1769-01 

1.5990-01 

3.8980*03 

0.006 

1,4009*00 

6.0149-01 

7.6349*  d\ 

5.3418-01 

3,0109-01 

1.6080-01 

3.9110*03 

0,055 

1 . 4509*00 

6.5379-01 

0.3099-01 

5, 6408-01 

2,8560-01 

1.6110-01 

3.9130*03 

0.026 

1.5009*00 

7,0039-01 

8.9950-01 

5.8328-01 

2,7130-01 

1,6090-01 

3.9040*03 

0.000 

1.5509*00 

7.4290-01 

9.4 350-01 

6  •  1  0/8-0*. 

2.5600-01 

1.5750-01 

3.8190*03 

0.775 

1.6009*00 

H, 0099-01 

1 .0279+00 

6,4208-01 

2.4560-01 

1.5779-01 

3.8170*03 

0. 751 

1,6509*00 

0,7779-01 

1.1159+00 

6,7208-01 

2.3400-01 

1.5730-01 

3,8030*03 

0.729 

1 .7009400 

9,4910-01 

1 .2059*00 

7.0048-01 

2,2320-01 

1.5649-01 

3.7760*03 

0.704 

1.7509*00 

1  .02  39400 

1  .2999+00 

7.5738-01 

2,1320-01 

1,5500-01 

3.7430*03 

0*609 

1.8000*00 

1 ,0990400 

1  .  3969+00 

7.5258-01 

2,0370-01 

1,5330-01 

3.7000*03 

0.670 

1.0509*00 

1,1740*00 

1 .4969  +  00 

7, 7608-01 

t  ,9490-01 

1.5120-01 

3.6500*03 

0 . 652 

1.9009*00 

1 ,2590*00 

1.5999+00 

7.8788-01 

1 ,6660-01 

1,4890-01 

3.5930*03 

0.636 

,  .9500*00 

1  ,  3420*00 

1 . 7019+00 

8,1818-01 

1 ,7660-01 

1  • 46  3n-01 

3,5310*03 

0.620 

2.0000*00 

1 .4270*00 

1  .4190  +  00 

8, 3678-01 

1,7150-01 

1.4350-01 

3.4650*03 

0.244 

5.0009*00 

V  ,  ' 009*00 

1 .2299  +  01 

1 .0008*00 

3,3569-02 

3.3560-02 

8,4629*02 

0.1-24 

1  ,0009*01 

3.6180*01 

4.8950*01 

1 .0008*00 

6,9499-03 

8. 9490-0  3 

2.2679*02 

0.06? 

2,0009*01 

1  .  3600*02 

1 .7  339*02 

1 .0008*00 

2,3099-03 

2.3090-03 

6.8529*01 

0.025 

5.0009*01 

4.1510*02 

1  .0.35«*03 

1 .0008*00 

3.7660-04 

3.7660-04 

9.5420*00 

o.oi? 

1 , 0009  +  02 

3,2069*0.3 

4.0710*03 

1 .0008*00 

9,4730-05 

9,4730-05 

2.4010*00 

' 7~cibl  e  Li 
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FRT1H  Nil«?4,794  1U  Nu  =  I  V.197  IHt  VALUE  Ilf  TMt 

FRUM  N.J«tl.H07  HI  Mil*  0.670  THE  VALID  1 1 r  The 

FROM  N'l*  0.657  10  MU*  0.012  THL  VAI_llf  Ilf  ThL 


lNitfiwau 

t»F 

FNU 

IS 

3. 450**0? 

WATTS/CM? 

T  m  T  r  V 

I  N  T  b  Ci  K  A  L 

□  F 

FNU 

\  s 

3.1 89**04 

nATTS/C1’? 

TH  I  M 

lNTttiNAL 

dF 

TNI) 

IS 

1.9314*03 

wOTTS/CM? 

Th  I  C* 

RADIANT  LM1ITANCL  F*  3.416**04  H4ITS/CM? 
ELEC  I  w  IC  FILLU  t*  3.479**01  VOLIS/C'I 
CURRtNT  OEMSIIY  ,1*  J,093**(M  AMP/C'12 


THtl  AM  .06 

LV  NT  111  4L*4 

i.54«4*l« 

NUENST  T  Y*5, 

265PM*  P4KUCLES/CM3 

T *  12  300.0  OUWiKS  K, 

P* 

11.01  AIM 

HNU 

w  AVELFN<il* 

KAHPA-PHIMb 

T  411 

(-TAU) 

HNU 

INU 

FNII 

LV 

mickons 

1/CM 

1-F. 

VATTS/OM 

STER 

XATTS/CM 

24. 794 

5.0U0P-02 

4.0B2P+01 

5.1849*01 

1,000»*00 

4.6094-07 

6.4099-07 

1  .4749-02 

22.540 

5.500P-03 

9,581 P^Ol 

1.2179*02 

1 . OOOBfOO 

».14«9-04 

4.1649-04 

1 .0554-01 

20,462 

8.000P-02 

1.4160*02 

1.7V9»*02 

l .ooo**oo 

1 .4479-05 

1.4879-05 

4.7424-01 

19.072 

8.!>0OP-ll» 

1  a804P+02 

2.?9lR*n? 

l  .nooa+oo 

4.4499-05 

6.6499-05 

1.6659*00 

17.710 

7 «OUOa"U? 

2. 1 38P*0? 

2.71 3**02 

l  ,ooo*»*oo 

1 .9259-04 

1.9259-04 

4.4749*00 

16.529 

7.500P-0Z 

2.a?4P*02 

3.0799*02 

1. 000*400 

4. 7449-04 

4.7689-04 

1.2049*01 

15.496 

A.000A-02 

2,677P*02 

3.3999*02 

1 .000**00 

1.0419-03 

1.0419*03 

2.4369*01 

13. 774 

9.0U0P-U2 

3*  097P  +  02 

3.9339*02 

1 ,000«*00 

3.7129-03 

3.7129-03 

9.4049*01 

12.397 

1 .OOOP-Ol 

3  •  4  3  3P  +  02 

4.3599*02 

1 ,000«*00 

9.9249-03 

9.9269-03 

2.5159*02 

11.807 

1 .OSOp-Ot 

2.35*0-02 

2. 9949-02 

2.946P-02 

1 . 4979-02 

4.4119-04 

1.1109*01 

8.265 

1 ,*00P-01 

4,6410-02 

6.1499-02 

5 . 96  3*"02 

1.4529-01 

8.6589-03 

2.1739*02 

6.199 

2.0UOP-01 

8.725P-02 

1.10*9-01 

1 .049#-01 

4.3139-01 

4,5249-02 

1.1329*03 

4.959 

2.500P-01 

1.38VP-01 

1.7639-01 

1.M7P-01 

7.1599-01 

1.1579-ftl 

2.4439*03 

4.13? 

3.000P-01 

2.C37P-01 

2.5849*01 

2.2/9P-01 

9.1349-01 

2.0829-01 

5.1644*03 

3.542 

3.500P-01 

2.B0/P-01 

3.5649-01 

2 • 998 •■01 

1 .0209*00 

3.0589-01 

7.5474*03 

3.099 

4.000P-U1 

3.835P-01 

4.4719*01 

3.856*-01 

1.0589*00 

4.0789-01 

1.0019*04 

2.755 

4.500P-01 

0.949P-01 

6.1599-01 

4.598«-01 

1.0519*00 

4.8329-01 

1.1419*04 

2.479 

5.000P-01 

6.144P-01 

7.4039-01 

5.4170-01 

1.0169*00 

5.5139-01 

1.3419*04 

2.254 

5.50OP-O1 

4.928*-01 

4.2599-01 

4.652P-01 

9.70«9-01 

4.5149*01 

1.1039*04 

2.066 

6.0* OP "01 

5.873P-01 

7.4549-01 

5,?57*-01 

9.1449-01 

4.8179-01 

1.1739*04 

1.907 

8.500P-01 

3.151P-01 

4.0029-01 

3.298P-01 

4.6059-01 

2.4389-01 

5.9904*03 

1.771 

7. OOOP-Ol 

2.3t>5«-01 

3.0039-01 

2.594P-01 

6.0549-01 

2.0899-01 

5.1719*03 

1.653 

7.500P-01 

2.762P-01 

3.5079-01 

2.958P-01 

7.5259-01 

2.2269-01 

5.4959*03 

1.550 

8.000P-01 

3.1V0P-01 

4.0529-01 

3. 331P-01 

7.0279-nl 

2.3419-01 

5.7649*03 

1.458 

e.500P-01 

3  4  651  P-01 

4.6379*01 

3.710P-01 

6,5624*01 

2.4359-01 

5.9814*03 

1.377 

9. OOOP-Ol 

4.402P-01 

5.5914-01 

4.283P-01 

6.1329-01 

2.6264-01 

6.4244*03 

1.305 

9.500P-01 

4.965P-01 

6.3059-01 

4.6/7P-01 

5,7359-01 

2.6824*01 

4.5509*03 

1.240 

l .OOOP+OO 

5.561P-01 

7.0639-01 

5.065*»-0l 

5.3709*01 

2.7209-01 

6.6289*03 

1.181 

1 .050P*0U 

6. 193P-01 

7.6659-01 

*,  446**01 

5.03*4-01 

2.7419-01 

4.4469*03 

1.127 

1 .100P*00 

6.J.6AP-01 

7.9559-01 

* . 487  **0 1 

4.7269*01 

2.5934-01 

4.3049*03 

1.078 

1 • 1 5 Op* 00 

* 4  757P-01 

7. 3119-01 

*. ltt6*-01 

4,4429-01 

2.3049-01 

5.6104*03 

1.033 

1 • 2UD0+0O 

6. 3A1P-01 

4.1034-01 

S.853P-01 

4.1829*01 

2.3224-01 

5,4434*03 

0.992 

t ,250P*00 

8,901 *"01 

1.1309*00 

6. /71*-01 

3.9429*01 

2,6699-01 

4.4539*03 

0.954 

1. 3000*00 

V.776P-U1 

1 .2439*00 

/.111*-01 

3.7219-01 

2.6469-01 

4,3904*03 

0.916 

1,3500*00 

1 4  0690*00 

1.3589*00 

7.428«-01 

3.5179-01 

2.6124-01 

4,3069*03 

0.886 

1 ,«0»P*00 

1  .  165P+00 

1,4809*00 

7,724*-01 

3.3284-01 

2.5719-01 

4.2039*1)3 

0.855 

1,4500*00 

1  .?66*<f00 

1 .6089*00 

7.996P-01 

3.1549-01 

2.5229-01 

4.0864*03 

0.826 

1 ,500P*00 

y • 371P+00 

1. 7419400 

8.946*-01 

2.9929-01 

2.4674*01 

•..9569*03 

0.800 

1  .5500*00 

1 ,443P*00 

1.6339*00 

8  4  400**0 l 

2,8429-01 

2.3879-01 

5.7649*03 

0.775 

1 .600**00 

1 ,573P*0U 

1.9949*00 

8  4  64  3*"0 1 

2 , 7-39-01 

2.3369-01 

5,4444*03 

0.751 

1 ,650P*00 

1 , 7  080*00 

2.1699*00 

8,8*8*-01 

2.5739-01 

2,2799-01 

5.4459*03 

0.729 

i , 7oop*oo 

1 .  B49P*00 

2.3449*00 

9,045*-01 

2.4529-01 

2.2169-01 

5.3269*03 

0.708 

I 97*0*400 

1.9950*00 

2.5339*00 

V.206B-01 

2.3409-01 

2.1549-01 

5.1649*03 

0.689 

1 .8000*00 

2  4 1 45**00 

2.7244*00 

9.34M-01 

2.2349-01 

2.0869-01 

5.0349*03 

0.670 

1 .8500*00 

2  4  3000*00 

2.9219*00 

9.461 *"01 

2.1369-01 

2.0219-01 

4,8649*03 

0.652 

1 4  9000*00 

2.  «60P*00 

3.1239*00 

V.560B-01 

2,04  19-01 

1.9549-01 

4.7354*03 

0.636 

1.9500*00 

2.6240*00 

3.3329*00 

9.643*-01 

1,9579-01 

1.8879-01 

4.5659*03 

0.620 

2.0000*00 

2,7920*00 

3.5444*00 

9.712P-01 

1.8759-01 

1.8229-01 

4.4314*03 

0.244  - 

5.0000*00 

1.9210*01 

2.4399*01 

1 . 000**00 

3.6209-07 

3.620»-07 

9.1429*0? 

0.124 

1  .0000*01 

f «?to0*oi 

9.1569*01 

1 .000*^00 

9.6119-03 

9.6114-03 

?, 4369*0? 

0.062 

2  4  0000*01 
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Fig,  6-  Experimental  &  theoretically  determined  peak  spectral  radiance  of  a  1.27  cm  thick 
xenon  plasma;  theoretical  calculation  used  Schluter' s  values  for  5  (dotted  portion  was 
extrapolated).  Experimental  conditions,-  Energy:  3140J,  Vg  -  2.8  KV,  C  *  800|iF,  L  *  100pH 
Flash  Tube:  1.27  cm  inside  diameter,  30  cm  arc  length,  150  torr  initial  pressure 
Peak  Current  Density:  2580  A/cm2;  Peak  Electric  Field:  54.3V/cm 
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led  to  a  means  to  measure  the  temperature  within  the  discharge,  and  thus 
in  turn  means  to  measure  various  properties  of  the  arc  plasma  as  a 
function  of  temperature. 

Emmetc , '-’chaw  low,  and  Weinberg  had  metsured  the  transmissivity 
at  various  wavelengths  in  the  ultraviolet,  in  the  visible  and  in  the 
near  infrared  as  a  function  of  current  density.  By  plotting  e"T  from 
the  model  versus  the  current  density  predicted  by  the  balance  with  the 
radiated  power,  we  could  calculate  similar  plots  for  the  siab  and 
cylindrical  geometries.  Figuies  8,  9,  and  10  show  the  comparison  of 
the  calculated  and  observed  values  for  3000A°,  5000Ao,  and  8000A°. 

The  former  two  plots  are  within  the  error  of  the  measurements .  The 
latter  results,  in  Figure  10,  at  8OOOA0,  differed  strongly  between 
theory  and  experiment.  This  high,  measured  value  for  the  opacity  was 
caused  (as  we  shall  show  later  in  Section  4.3)  by  the  broadeneu  and 
saturated  strong  infrared  lines  of  xenon. 

The  results  in  this  section  utilized  purely  theoretical 
calculations  for  the  special  absorptivity  and  electrical  conductivities 
which  are  not  truly  representative  of  the  values  in  the  arc  plasma. 

As  better  theoretical  calculations  are  developed  for  the  continuum, 
lines,  and  conductivities,  through  these  studies  and  others,  the 
agreement  at  all  wavelength  measured  by  Emmett,  Schawlow,  and  Weinberg0 
should  improve . 
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Fig.  8-Transmission  of  a  1  cm  thick  layer  of  xenon  of  homogeneous  temperature 
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Fig.  9-Transmission  of  a  1  cm  thick  layer  of  xenon  of  homogeneous  temperature 

at  5000  A 
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Tig.  10-Transmission  of  a  1  cm  thick  layer  of  xenon  of  homogeneous  temperature 

at  8000  A 


irnisroimwinwHl 


-  1*0  - 


CHAPTER  4 

Experiment  1  Measurements 

4.1  Experimental  Measurements  Measured  on  the  Pulsed  Arc 

The  spectral  radiance  in  a  high  current  pulsed  arc  was  measured  at 
a  number  of  wavelengths  and  positions  within  the  arc.  The  voltage  and  the 
currents  through  the  arc  were  also  measured  simultaneously  with  the  time 
varying  spectral  radiance.  These  measurements  were  first  used  to  determine 
the  temperature  and  then  the  temperature  dependence  of  the  spectral  absorptivity 
and  electrical  conductivity  of  the  xenon  arc. 

The  experimental  arrangement  for  these  measurements  is  shown  in 
Figure  11.  A  12. 7  mm  bore  tube  filled  to  a  pressure  of  150  torr  of  xenon 
was  used.  Two  off-axis  paraboloidal  mirrors  of  1  meter  focal  length  imaged 
the  arc  discharge  upon  the  entrance  slit.  The  various  radial  portions  of  the 
discharge  were  studied  by  traversing  the  monochromator  across  the  image  between 
firings  of  the  bank,  with  the  monochromator  set  for  the  wavelength  at  which 
the  spectral  radiance  was  to  be  measured.  The  power  input  and  electrical 
conductivity  of  the  discharge  was  monitored  through  recording  the  voltage  and 
current  for  each  shot  (with  the  capacitance  .800  nF  and  the  inductance  .100  pH 
held  constant  for  the  whole  series).  The  energy  input  was  varied  by  charging 
the  capacitor  bank  voltage.  The  current  was  measured  with  a  T&M  coaxial  current 
shunt  (.001  r),  the  voltage  with  a  Tektronix  voltage  divider.  The  entire  optical 
system,  including  the  mirrors,  monochromator  and  photomultiplier  detector  was 
calibrated  for  spectral  radiance  by  the  substitution  method,  using  a  synchronous 
detector  recorder  with  a  tungsten  strip  filament  lamp  (GE  30A/T24/17)  being  used 
as  the  standard.  This  lamp  in  turn  hec  been  calibrated  by  Eppley  laboratories. 
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Mirrors  were  8"  dia.  1  M  focal  length  off  axis  paraboloids 


Light  Source" 

1.  Standard  of  spectral  radiance 

2.  Fiash  lamp  with  current 
shunts  &  voltage  divider 


Machinists  Table 
Allow  Traverse  & 
Longitudinal 


S-13  or  S-l 
Photodetector 
S-l  for  infrared 
S-20  ( Quartz  window) 
for  visibleand 
ultraviolet 


Recording 
Electronics 
1.  Syn.  det.  for 
calibration 
2  Oscilloscope 
for  flash  lamp 


Fig.  11  “Monochromator  arrangement  for  studies  on  flash  lamps 
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4  .2  Radial  Distribution  of  Spectral  Radiance 

The  spectral  radiance  was  measured  on  the  central  axis  for  a  number 

of  wavelengths  in  the  ultraviolet  where  the  plasma  should  be  optically  thin  . 

There  were  no  emission  lines  noted  in  this  spectral  region  in  the  xenon  short 

arc  spectra  discussed  in  section  5*5  of  the  First  Semiannual  Report. 

The  radial  distribution  of  the  spectral  radiance  was  measured  at 

2600,  2800  and  3OO08  at  a  number  of  different  radial  positions  on  each  side 

of  the  center  line.  The  results  of  these  measurements  are  shown  in  Figures 

12  and  13  for  two  different  energy  levels  and  thus  current  densities. 

The  spectral  radiance  at  3OO08  near  the  tube  wall  was  measured  to 

ascertain,  if  possible,  the  boundary  layer  thickness.  The  values  shown  are 

the  raw  values  of  spectra  radiance  at  various  diameters,  not  as  yet  corrected 

to  the  radial  dependence  by  means  of  the  Abel  inversion  using  techniques  described 

4^ 

in  Freeman  and  Katz  '  and  tua.  j  OLher  papers.  These  values  indicate  roughly  that 
the  homogeneous  temperature  model  is  reasonable  os  a  rough  approximation. 

The  homogeneous  temperature  distribution  is  shown  in  dashed  lines.  The  walls 
of  the  tube  were  at  +  .25  inches  (i,e.:  +  .635  cm).  The  high  radiance  in  the 
wall  region  is  not  readily  explicable,  but  is  probably  due  to  reflections  from 

46  47 

the  quartz  wall  interfaces.  Frost  and  Maecker  have  shown  that  no  lens  effect 
exists  in  the  region  inside  the  walls  (i.e.:  a  distance  from  the  centerline 
outside  the  tube  corresponds  to  the  spectral  radiance  that  distance  from  the 
centerline.  Figure  l4  shows  a  simple  proof  of  this. 

4.3  Time- Resolved  Spectral  Radiance  in  the  Infrared  -  Temperature  Measurements 
The  spectral  radiance  in  the  center  of  the  ar r  was  measured  as  a 
function  of  tine  in  the  immediate  vicincity  of  some  strong  lines  of  xenon  in  the 
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Fig.  12  -Peak  spectral  radiance  at  different  distances  from  flashtube  center  at  three 
wavelengtns  for  780  J  input.  ( not  corrected  Abel  inversion!.  Homogeneous  temperature 

profile  indicated 
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Fiq.  13-Peak  special  radiance  a\  different  distances  from  flashtube  center  at  three 
wavelengths  for  3140  J  input.  ( not  corrected  Abel  inversion).  Homogeneous  temperature 

profile  indicated 
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Curve  575937-A 


Let  ij  =  angle  of  incidence  with  respect  to  axis 

sin  ij  =  jp  where  Rq  is  the  outer  radius  of  the  tube 
sin  ij 

sin  rl =  ~ n~;  n  =  index  of  refracti°n  of  cylinder 

i2  =  angle  of  incidence  from  cylinder  to  plasma 
R 

Sini2=  Rj“  sinri 
sin  r2  =  n  sin  i2 

Tracing  whole  route  of  the  ray  through  cylinder  yields- 
sin  r2  =  n  sin  i2  -  nRQ/R,sin  r}  =  Rq/Rj  sin  i 

sin  r2  =  p/RgXRp/R^p/Rj 

q/Rj  =  sin  r2  =  p/Rj :  q=p  where  q  is  the  perpendicular  distance  of  the 

ray  in  the  cylinder  to  the  center  of  the  cylinder 
Fig.  14-Derivation  of  Frost's  and  Maecher' s  center  line  distance  relation 
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infrared.  The  slit  width  of  the  monochromator  was  set  for  a  spectral  resolution 
of  just  under  2 A0  to  avoid  over  lapping  of  the  spectral  radiance  determinations. 
Figure  15  shows  two  oscilloscope  traces,  the  upper  with  twice  the  gain  of  the 
lower.  The  lower  trace  was  taken  at  the  unshifted  center  of  the  8231. 6A°  line 
of  xenon;  the  upper  trace  was  taken  at  8l98A°,  approximately  34a°  away  towards 
the  shorter  wavelength.  The  current  trace  is  the  upper  curve  on  both  pictures. 
The  energy  input  to  the  12.7  mm  diameter,  30  cm  arc  length  tube  was  78OJ.  To 
be  noted  on  these  traces  is  the  saturation  and  long  persistence  of  the  line 
at  8231. 6A°  particularly  in  comparison  with  the  current  or  the  8198A0  trace. 
Figure  l6  is  a  cross  section  in  wavelength  of  the  spectral  radiance  about  the 
line  for  different  time  intervals.  Each  wavelength  setting  wan  a  separate 
shot  (note  the  reproducibility  at  the  peak).  To  be  noted  is  the  shift  and 
broadening  of  the  line  with  increasing  current.  The  wings  of  the  line  contri¬ 
bute  strongly  to  the  spectral  absorptivity  of  the  continuum  away  from  the  line 
center. 

The  saturation  of  the  spectral  radiance  of  the  line  provides  e 
means  to  determine  the  temperature  within  the  arc.  If  the  arc  is  homogeneous, 
this  temperature  so  determined  is  that  of  the  arc  core.  If  the  arc  is  not 
homogeneous,  further  measurements  would  be  required  of  the  radial  distribution 
of  the  saturated  radiance.  The  units  were  converted  to  temperatures  using 
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Walker's  tables  which  list  spectral  radiances  for  b.lack  bodies. 

Temperature  measurements  by  means  of  spectral  radiance  measurements 
in  the  infrared  require  high  precision  in  the  measurement  of  the  spectral 
radiance  and  the  other  quantities  for  which  the  temperature  dependence  being 
measured.  Source  of  error  in  the  methods  for  measured  temperature,  particularly 


a)  8198  A  ( Continuum)  Gain  100  mv/  cm 
( 2  x  <b) ) 


b)  8231. 6 A  ( Line)  (Gain  200  mv/ cm) 


Fig.  15-Oscilloscope  traces  of  the  voltage 
representing  the  spectral  radiance  at  the 
center  of  the  8231. 6 A  line  and  at  8198 A 
(in  the  continuum).  The  8198 A  trace  has 
twice  the  gain  of  the  other  trace.  The  upper 
curve  in  both  cases  is  the  current.  The 
time  scale  is  100  (j  sec/ scale  division 
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Fig.  16-  Time  history  of  8231. 6  A  line  of  xenon 
780J  input,  12.7mm  dia.  tube,  150  torr  initial  pressure 
Peak  current  1140  amps 
Peak  electric  field,  29  v/cm 
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with  the  pulsed  discharge,  are  the  shot  to  shot  variations  (simultaneous 
measurements  are  to  be  preferred)  and  the  difficulties  in  reading  oscillos¬ 
cope  deflections  accurately,  in  addition  to  the  more  usual  problems  of 
accurate  measurements  of  spectral  radiance  (i.e.:  those  of  the  standard 
lamp  and  of  the  same  viewing  geometry,  etc.  ).  The  technique  has  the  supreme 
virtue  of  yielding  a  temperature  without  assumptions  on  the  detailed  properties 
of  the  plasma. 

The  temperatures  obtained  by  this  method  were  used  to  measure  the 
temperature  dependence  of  the  spectral  radiance  and  of  the  electrical  conductivity 
of  the  arc  to  be  discussed  in  subsequent  sections. 

k . 4  Measurements  of  the  Spectral  Absorptivity  and  the  j  Factor  of  Blberman  & 
Norman 

Earlier  measurements  of  the  radial  distribution  of  the  spectral 
radiance  in  the  ultraviolet  in  the  First  Semiannual  Report1,  and  analyzed 
more  thoroughly  in  this  report,  and  spectral  transmissivity  measurements^ 

2 

indicated  that  the  arc  plasma  at  current  densities  to  at  least  ^000  amp  (cm  ) 
was  nearly  homogeneous  in  spectral  absorptivity,  and  therefore  in  temperature. 
During  the  development  of  the  models,  the  need  for  some  confirmation  of  the 
values  of  the  spectral  absorptivity  used  in  the  models  was  required. 

Measurements  of  the  spectral  radiance  at  wavelengths  for  the  arc 
was  thick  (at  the  peak  of  a  strong  line  or  the  continuum  in  the  infrared)  had 
led  to  the  determination  of  the  temperature  of  this  homogeneous  plasma.  Using 
the  values  of  temperature  thus  determined,  the  pressure  was  calculated  assuming 
that  the  entire  volume  of  the  tube  was  of  homogeneous  temperature.  Figure  IT 
is  a  chart  derived  from  the  particle  density  versus  pressure  calculations  to 
aid  this  computation.  By  comparing  the  spectral  radiance  observed  on  the  flash 
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Fig.  17-Heavy  particle  (atoms  +  ions)  density  as  function  of  temperature  for  various  pressures. 
For  homogeneous  temperature  mode?,  dynamic  pressure  is  given  by  horizontal  line 
representing  initial  pressure  and  thus  particle  density 
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tube  with  that  calculated  using  the  Biberman  &  Norman  continuum  theory  usint, 

Schliiter's  values  for  the  £  factor  for  the  same  pressure  and  temperature,  an 

experimental  value  of  the  variation  of  |  with  wavelength  was  obtained.  The 

experimentally  determined  values  are  shown  in  Figure  18  together  with  the 

7  18 

theoretically  calculated  values  of  Biberman  &  Norman  ,  and  of  Schltiter  . 

The  measured  values  have  a  semi- quantitative  agreement  with  the  wavelength 
variation  and  the  magnitude  of  Schliiter's  values  but  still  differ  widely  in 
the  infrared  between  and  1.0  |i.  The  large  values  of  £  measured  between 
i’ICo/-,0  a j  0000°  is  probably  due  to  the  effects  of  the  wings  of  the  strong 
lines  of  xenon  in  the  infrared  (as  shown  in  Section  J+.3)«  Furthermore, 
accurate  measurements  of  £  particularly  in  the  ultraviolet  below  2600A°,  and 
in  the  infrared  beyond  10000A°,  would  provide  further  insight  into  the  actual 
values  of  £  for  further  theoretical  calculations  i  voujc  l 
■•he  extension  of  his  theory  to  the  shorter  wavelengths  where  the  slope  of 
Schlliter's  values  of  |  differ  widely  from  our  experimental  values  shown  in 
Figure  18.  Figure  19  is  a  plot  of  the  spectral  radiance  at  300QA°  with  tempera¬ 
ture  for  various  pressures.  The  arc  discharge  in  the  flash  tube  which  may  be 
considered  to  be  a  constant  heavy  particle  processes  follows  the  heavy  lines 
indicated. 

Figures  20,  21,  and  22  present  on  a  linear  scale  for  clarity  tne 
experimentally  measured  values  of  the  spectral  radiance  together  with  the 
black  body  radiance  and  the  spectral  radiance  calculated  using  Schl'iter's  values 
for  |  corresponding  to  the  temperatures  measured  in  the  arc  in  Section  I+.3. 

These  figures  are  linear  plots  of  Figures  7  which  are  semi- log.  The 

linear  plot  shows  the  detailed  correspondence  and  theoretical  distribution  more 


actor  of  Biberman  &  Norman 
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Curve  575927-A 
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Fig.  lu“Comparison  of  experimentally  measured  values  of  Biberman  &  Norman 
£  Factor  with  theoretical  calculated  values  of  Schluter  (Z.  Astrophys.  61,67 
( 1965)  and  of  Biberman  &  Norman  ( J.  Quant.  Spectr.  Rad.  Transfer  3, 221  i  1963) 
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Fig.  20  -Linear  plot  of  the  experimental  and  theoretical  values  for  the  spectral 
radiance  of  a  1. 27  cm  thick  xenon  plasma  of  homogeneous  temperature 
corresponding  to  the  780  J  -  1000  A/cm2  peak  current  density  series 
Flashtube:  1.27  cm  inside  dia.  30  cm  long  filled  to  150  torr  xenon 
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Fig  21  -Linear  plot  of  the  experimental  and  theoretical  values  for  the  speitral 
radiance  of  a  1,27  cm  thick  xenon  plasma  of  homogeneous  temperature 
corresponding  to  the  3140  J  -  2580  Mm1  peak  current  density  series 
Flashtube:  1.27  cm  inside  dia.  30  cm  long  filled  to  150  torr  xenon 
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clearly  while  the  semi- log  plot  shows  well  the  wide  variation  with  wavelength 

of  the  spectral  radiance  and  in  optical  thickness. 

4.5  Temperature  Dependence  of  the  Electrical  Conductivity 

The  electrical  conductivity  in  the  xenon  plasma  was  measured  as  a 

function  of  temperature  using  the  temperature  as  determined  in  Section  4.3. 

The  temperature  dependence  (for  the  same  number  of  heavy  particles)  is  shown 

in  Figure  23.  The  voltage  drop  at  the  electrodes  was  considered  to  be 
/  4q 

negligible  (Gonz  estimated  the  voltage  drop  to  be  10  to  20  volts  in  similar 

flash  tubes).  The  electrical  conductivity  measured  is  the  average  value  -vrr 

the  cross  section  of  the  tube.  The  average  value  will  equal  the  actual  value 

if  the  flash  tube  is  completely  filled  with  a  homogeneous  plasma.  The 

correction  factor  necessary  to  allow  for  the  boundary  layer  has  not  yet  been 

determined;  though  the  radial  spectral  radiance  profiles  (Section  4,2)  indicated 

the  boundary  layer  should  be  small. 

The  measured  electrical  conductivity  is  considerably  smaller  than 

that  calculated  using  Spitzer’s  theory1^* ^  for  the  same  temperature  and  pressure 

also  shown  in  Figure  22.  This  is  not  wholly  unexpected  as  the  electron- neutral 

scattering  could  be  important  at  10000°K,  (and  7.6  atm. )  even  though  the  gas 

is  about  10$  ionized.  As  the  electron  density  was  calculated  to  be  about 
18 

1  x  10  for  these  conditions,  Spitzer’s  theory  and  in  particular  the  Coulomb 
term  may  be  beyond  its  limits  of  validity.  Both  areas  (i.e.:  electron  neutral 
effects  and  high  density  corrections)  need  further  investigation. 
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Temperature,  °K 


Fig.  23  -Experimental  and  theoretical  dependence  of 
electrical  conductivity  of  xenon  upon  t  mperature 
at  a  constant  heavy  particle  density 


STATUS  OF  THE  PROBLEM  AND  FUTURE  WORK 

In  this  report,  we  have  presented  some  simple  models  for  the  arc 

discharge.  The  models  have  many  features  that  agree  in  a  semi- quantitative 

fashion  with  the  actual  arc.  These  areas  of  agreement  include  l)  the  arc  is 

thick  in  the  infrared  and  visible,  and  tk;  1  in  the  ultraviolet,  2)  large 

changes  in  input  power  can  lead  to  relatively  small  changes  in  spectral 

radiance  in  the  infrared  where  the  arc  is  thick,  but  very  large  changes  of  the 

spectral  radiance  in  tie  ultraviolet  where  the  arc  is  thin.  To  utilize  these 

models  and  to  develop  more  complete  models  that  include  energy  transport  within 

the  arc  and  to  the  walls  the  physical  properties  of  the  arc  need  to  be  better 

known.  Future  work  on  these  arcs  should  include  experimental  and  theoretical 

studies  to  improve  the  quantitative  agreement  between  the  theory  of  the 

spectral  absorptivity  of  the  continuum  (Section  4.4)  and  the  actual  experimental 

values.  Inclusion  of  the  pressure  broadened  lines  in  the  infrared  would  probably 

improve  the  agreement,  particularly  for  arcs  of  moderate  current  densities 
2 

(*''1000  A/cni")  which  are  becoming  of  more  interest  due  to  the  advances  in  laser 
efficiency. 

We  have  neglected  thermal  conductivity  and  have  used  a  simple  repre¬ 
sentation  for  electrical  conductivity  in  these  model  calculations.  Quantitative 

2 

models  particularly  in  the  current  density  range  (v1000  f /cm  )  should  include 
thermal  conduction  and  better  values  of  electrical  conductivities  to  allow 
calculation  of  the  power  balance  as  the  energy  transfer  by  thermal  conduction 
and  the  heating  away  from  the  central  core  becomes  more  important  in  the  lower 


power- lower  pressure  arcs. 
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The  extension  cf  these  models  to  more  complex  arc  systems  in  which 
the  power  balance  between  radiation  and  thermal  conduction  is  a  factor  that 
requires  an  extension  of  radiative  transport  theory  beyond  that  of  .Appendix  A. 

As  the  techniques  improve,  we  must  see  what  simplifications  are  warranted  and 
how  and  when  to  include  the  walls,  be  they  transparent  or  reflective.  It 
should  also  be  possible  to  apply  these  theories  and  the  model  calculations 
to  actual  laser  pumping  situations  such  as  is  found  in  a  coaxial  laser  pump 
closely  coupled  to  the  laser  rod. 

The  techniques  devised  in  this  work,  both  experimental  and  theoretical, 
can  be  applied  to  other  problems  of  radiative  plasma  such  as  those  occurring 
in  lightning  arcs,  in  light  sources,  and  in  simulating  plasmas  of  astrophysical 


interest. 
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Abstract 

In  a  study  of  highly  radiative  arc  discharges,  an  analysis  has 
been  made  for  determining  the  radiation  flux  (i.e.,  radiant  emit tax.  t) 
throughout  the  interior  of  a  non-grey  cylindrical  arc.  These  flux  cal¬ 
culations  are  necessary  to  determine  the  divergence  of  the  flux  which  is 
needed  to  obtain  a  solution  of  the  integro-differential  arc  energy  equa¬ 
tion.  The  flux  is  expressed  as  a  triple  integral  where  the  integrand  is 
the  product  of  absorption  coefficient,  Planck  function  and  an  attenuation 
factor  which  involves  a  line  integral  of  the  absorptivity.  A  computer 
program  performs  the  integration  with  respect  to  wavelength,  a  spherical 
coordinate  and  the  distance  along  a  radiation  vector.  Separate  programs 
calculate  the  spectral  absorptivities  and  transport  properties  for  use  in 
the  flux  program.  The  cases  to  be  discussed  include  only  the  free-free 
and  bound-free  continuum.  Radial  flux  distributions  are  presented  for 
xenon  at  pressures  of  15  and  20  atmospheres  for  the  following  temperature 
distributions:  (a)  isothermal  arcs  at  20,000°K  and  15,Q00°K;  (b)  linear 
arcs  from  15,00Q°K  to  12,000°K  and  2000°K;  (c)  a  non-linear  "parabolic" 
arc  from  15,000°K  to  5000°K. 
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Introduction 


Neglecting  convection,  the  steady  state  energy  equation  for  an 
arc  is  given  by 


V-(K'VT)  - 


V- F  +  <r(P/r)Ea=  o 


(1) 


where  F  is  the  radiation  flux  vector,  K(T)  the  thermal  conductivity,  T  the 
arc  temperature,  <T  the  electrical  conductivity,  P  the  arc  pressure  and  E 
the  electric  field.  In  addition  the  arc  temperature  must  satisfy  certain 
boundary  conditions  which  depend  upon  the  application.  In  turn  the  diver- 

ft. 

gence  of  F  is  given  by 


oO 


V-F  -  4  7T  ^  (T)  (T)  d\ 


—  J^AJ^Ae|u3«tx  "P  — 


(2) 


where  is  the  non-grey  absorption  coefficient,  the  Planch  function, 

I  the  intensity  of  radiation  and  F  the  radiation  flux.  Equation  1  is  an 
integro-differential  equation  which  can  be  solved  using  an  iteration  tech¬ 
nique.  In  the  iteration  process,  a  temperature  distribution  is  assumed, 
and  the  flux  F  and  the  second  integral  in  equation  2  are  evaluated  as 
functions  of  r.  Equation  1  is  then  solved  for  a  new  temperature  distri¬ 
bution  and  this  process  repeated  until  the  temperature  solutions  converge 
If  the  axis  temperature  is  held  constant,  a  value  of  E  is  associated  with 
each  temperature  solution  and  the  values  of  E  also  converge.  To  obtain  an 
arc  temperature  distribution,  it  is  therefore  necessary  to  calculate  the 
flux  as  a  function  of  radial  position.  This  paper  is  concerned  with  making 
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flux  calculations  for  a  non-grey  cylindrical  xenon  arc  for  several  assumed 
temperature  distributions.  Future  work  will  employ  the  flux  program  to 
solve  the  arc  energy  equation. 


Radiation  Flux.  Integral 

The  flux  vector  F  is  defined  by  the  equation 


oo 


F(n 


e;  Z)  =  j 


( <0 


)  Ja 


(5) 


where  \  is  the  wavelength  and  r  and  ©'  are  cylindrical  coordinates.  In 
turn,  F^  is  given  by 

FA(r,s'jZ)=  jl/  (rj6'zZ)Zjo>  ( 


where  C*J  Is  a  unit  direction  vector  and  I.  (r,9',z,cJ)  is  the  monochromatic 

Ai 

intensity  of  radiation.  In  general  the  intensity  I  depends  on  position 
coordinates  and  the  direction  signified  by  the  vector ui  .  To  define 

I. ,  let  A  A  denote  a  small  element  of  area;  n  the  outward  drawn  normal  vec- 
tor  to  &  A;  id  a  vector  enclosed  by  a  solid  angle  4 which  makes  an  angle 
7  with  A  \  the  wavelength  interval  between  \  and  \  +  A  and  ^  q^,  the 

amount  of  radiant  energy  in  the  interval  A  \  which  is  transferred  across 
4  A,  confined  to  the  solid  angleA<4  during  the  time  interval  At.  Then 
1^  is  given  by  the  following  limit: ^ 


» 

-  I 


M 


(5) 


In  Figure  1  is  shown  a  point  R  in  the  arc  with  coordinates  r,9', 

0.  Through  R  is  drawn  a  ray  defined  by  the  spherical  coordinates  0  and  0 
which  intersects  the  arc  boundary  at  point  Q.  The  integration  of  all  radia¬ 
tion  contributions  from  points  on  the  ray  from  Q  to  R  defines  the  intensity 
\  in  the  directional  along  the  ray.  Because  of  the  definitions 

of  Q  and  0,  the  vector  co  is  given  by 


—  XUm,  0  CtfO, 


-> 

o 


Curoi  0 


~V 

\c 


(6) 


Expressing  the  Cartesian  vectors  i  and  j  in  terms  of  the  cylindri¬ 
cal.  vectors  r  and  0 


A.  -  r  <Le^  &  ~  Q  0 1 


(7) 


and 


j  s  lr  ./■qx/wo 


->  /  , 

0+0  C. a*>  0 


The  vector  i-0  in  terms  of~t,  9  andT  is  given  by 


CO 


=  IT  +  f ^  ©  +  -f,  Vf 


(8) 


(9) 


where 


"5",  ~  yaxxu.  ©  Cc-o-  $  Cx/Q*  0 


(10) 


^  —  /Otvl  0  C</^  ^  /C-Vfcv  0  — -  0  xax-io  (p  Qjfij  Q  ( 11 ) 


4 


3 


—  CxtQj  @ 


(12) 
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Using  equation  9>  equation  4  becomes 


Fx(r,e',i) +  e  us) 

*^*4  Tv 


Assuming  a  symmetrical  temperature  distribution,  the  9  and  k  com¬ 
ponents  of  F^  must  vanish.  Hence 

^  r 

M^z)  “  f\N(h)  -  ^ X  ?  r^(r)  (1*0 

W=4T 


F  =  r  F  c*~) 


where 


e» 

F(r\  =  ^  ^  ^  c ltd  cl  \ 


=  sir.Qdedj#, 


For  convenience  9’  may  be  set  equal  to  zero.  Since  d<^ 
and  making  use  of  symmetry,  equation  l6  becomes 

F(^)  -  -  4  ^  ^  ^  /clU^  G  <u& 4  &<J 4  cl  y\ 

O  o  o 


An  expression  is  now  needed  for  1^  (r,9,fl)  In  Figure  1,  let  s' 
represent  a  point  along  the  ray  from  Q  to  R.  The  intensity  satisfies  the 
transfer  equation 
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cUx 
(X  s' 


K>k(s,)T/\Cs')  +•  ^(5'J  (18) 


where  the  Planck  function  is  given  by 


Bx(t)  - 


a  Ca  1-, 


4  '”(&)- '] 


(19) 


where  c  is  the  velocity  of  light,  and  k  and  h  are  the  Boltzmann  and  Planck 
constants  respectively.  Implicit  in  equation  18  is  the  assumption  that  the 
gas  is  non- scattering.  An  integrating  factor  of  equation  18  is  e  . 

Carrying  out  the  integration  yields 

-  5  *>el5“ 


■  f  .  5  .w 

Ix(s)  =  c,  e  "  -i-  jKsfs'jS^s'ie.  3‘  j,i 


(20) 


where  is  a  constant  of  integration  which  equals  the  intensity  at  s' =  0. 
Referring  to  Figure  i,  s'  =0  corresponds  to  point  Q  and  s'  =  s  corresponds 
to  point  R.  The  initial  intensity  of  radiation  entering  the  arc  at  point  Q 
is  assumed  to  be  zero  which  makes  C1  zero.  In  the  numerical  integration,  it 
is  more  convenient  to  reverse  the  integration  and  to  let  s'  =  0  correspond 
to  point  R.  Letting  RQ  denote  the  length  of  the  ray  from  R  to  Q,  the  inten- 
sity  at  R  in  the  direction  co  can  be  written  as 


o 


Using  equation  21,  equation  17  becomes 


. . .  linn  i  tmiimif  mi  ith  in  i  Kiitimj 
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o  P 


5 

°  oU  /on*"  Q  Ct/a*  $  J  6J  <jci  ^ 

(22) 


Equation  22  can  be  further  simplified.  Referring  to  Figure  1, 
consider  point  s'  on  the  ray  from  Q  to  R,  and  its  projection  s  on  the  riy 

from  M  to  R.  Point  M  is  the  projection  of  point  Q  onto  the  x-y  plane. 
Since  ds1  =  ds/sin@,  then 


j  "Ms"  =  S  ( y' 

G 


)ds' 


(23) 


Svh  © 


Furthermor 


written  as 


.ore,  letting  ^(s)  .  equation  22 


can  be 


«x»Tt  |  M) 
°  o  o'i 


SuvGcc *<j)  els  <J  y  (24) 


where  R^  is  the  length  of  the  ray  from  M  to  R  and  is  a  function  of  p. 
fining  the  function  Gn(x)  by  the  equation 

*  JL 


De- 


t  JL 

Cx  j  it  ^  c  © 


(25) 


and  interchanging  the  orders  of  integration  with  respect  to  P  and  s  in  equa- 
tion  24  yields  H 


F(ft)= 


(26) 


o  0 


1 

! 
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Equation  26  is  the  desired  integral  expression  for  the  flux  as  a 
function  of  radial  position.  In  analyzing  the  radiation  from  an  axisymmet- 
ric  rocket  engine  plume,  deSoto'  evaluated  an  integral  similar  to  the  one 
in  equation  22.  For  the  arc,  the  cylindrical  geometry  permits  equation  22 
to  be  reduced  to  equation  26.  To  evaluate  this  integral,  it  is  necessary 

to  know  how  varies  with  0,  and  for  a  given  0,  how  temperature  varies 
with  s  along  the  ray. 


Arc  Geometry 


The  coordinate^;, '■stem  in  Figure  1  is  redrawn  in  Figure  2  with  ©• 
set  equal  to  zero,  let  *Q  and ^  denote  vectors  from  the  origin  to  points 
M  and  R  respectively,  and  R^  the  vector  from  R  to  M.  Furthermore  lot  R 
denote  the  radius  of  the  arc,  i.e.  «  j?  f.  Then  A 


—  R  a  C<pn  (r 


■f  f?/\  a(  © 


(27) 


and 


where  R_  =  R 


OR 


Solving  for  R^  from  the  vector  equation 


OR 


=  f? 


o 


(28) 


(29) 


gives 


~  (  ^A  ~  ^o)?  + 


(30) 


and 
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(ft  A  CtfiL*  -  4- 


To  determine  as  a  function  of  0  it  is  necessary  to  determine 
a  as  a  function  of  0.  Prom  Figure  2 


tc^  4  - 

Ra  <u&(k -  R, 


which  yields  the  equation 


|  +  4 


Two  values  of  a  are  calculated  from  equation  33,  the  correct  one 
being  that  value  which  also  satisfies  equation  32. 

To  evaluate  the  integrand )f^(s)  B?(s)  G-^/^s))  in  equation  38, 
it  is  necessary  to  know  the  temperature  distribution  T(s)  along  the  ray 
defined  by  0.  A  unit  vector  along  the  ray  from  R  to  M  is  given  by  R^/Rj^. 
Lettos  andl^g  be  vectors  from  the  origin  and  point  R  to  a  point  s  on  the 
vector  R^j,  Then 

T> 

R  =  5  Rr*  /*k\ 


where  s  denotes  distance  along  the  vector  (J  ^  and 

Rt<  =  Rl*  +  fit. 


or 
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Ro s  ~  Rft  ?  +  J.  [*  ©  3  (56) 

f?*  ' 

Solving  for  |  R^g  J  , 

J 

|rTs1=  ^(^0+  ^(R*c*a-eL~l?c‘))  +  (57) 


Assuming  that  the  radial  temperature  distribution  T(r)  is  known 
for  0  =  r  c  Ra,  the  value  of  T(s)  for  a  <»iven  value  of  s  is  defined  by 


T(s)  =•  T[  |R?*I] 


(38) 


Knowing  R^(jfl)  and  T(s),  the  integral  in  equation  26  can  be  eval¬ 
uated. 

As  an  aid  in  checking  the  computer  program,  it  is  convenient  to 
consider  the  case  of  a  grey  isothermal  arc.  Let 

-r  "JC  =  constant 

(59) 

T(^)  -  T0  m  constant 

Then  equation  26  reduces  to 

/  C*  r 

F(R)=  4  0~  To  \  6, [If  Rm^)J  C*.U4  W 

Tv  o 

Equation  40  was  programmed  and  used  to  check  the  flux  program  for 
the  evaluation  of  equation  26,  under  the  conditions  of  equation  59* 
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Flux  Approximation 

Before  discussing  flux  computations  for  assumed  temperature  dis¬ 
tributions,  a  vord  is  in  order  on  making  approximate  flux  calculations . 

On  a  Burroughs  B-5000  computer,  ii,  takes  an  average  of  100  seconds  w  eval¬ 
uate  equation  26  for  one  value  of  r.  Based  on  present  computing  rates,  the 
corresponding  cost  is  approximately  $10  per  point.  If  the  flux  is  evaluated 
at  10  points  to  compute  a  radial  distribution,  the  cost  of  a  flux  distribu¬ 
tion  for  an  assumed  temperature  distribution  is  of  the  order  of  $100.  Since 
it  is  not  known  a'priori  how  many  iterations  of  equation  1  are  needed  to  ob¬ 
tain  a  convergent  solution,  it  is  obvious  that  computing  costs  could  become 
prohibitive.  It  is  therefore  necessary  to  consider  the  possibility  of  making 
approximate  flux  calculations. 

For  the  case  of  a  plane -parallel  geometry,  Sampson^  used  the  gen¬ 
eral  grey  gas  expression  for  the  flux,  but  chose  the  mean  absorption  coeffi¬ 
cient  to  be  functions  of  the  Planck  and  Rosseland  mean  absorption  coefficients 
and  the  optical  depth.  By  using  Planck  and  Rosseland  means,  the  integration 
with  respect  to  wavelength  is  eliminated  which  significantly  reduces  machine 
time.  Sampson' 8  flux  approximation  is  exact  in  the  limits  of  very  optically 
thin  and  very  optically  thick  gases.  For  a  non-grey  gas  of  intermediate  op¬ 
tical  thickness,  he  found  that  exact  and  approximate  flux  calculations  dif¬ 
fered  by  no  more  than  a  factor  of  two.  For  a  cylindrical  geometry,  the 
radiative  intensity  X^  must  be  approximated  instead  of  the  flux,  and  the 
flux  then  ootained  from  the  equation 

00  . 

P(h)~  J  (bp) 

UJ5  4  7T 

(k) 

Following  Sampson,  approximations'  '  have  been  obtained  for  the 
radiative  intensity  and  the  flux.  The  quality  of  the  approximation  has  not 
yet  been  checked,  but  if  it  is  comparable  to  Sampson's,  it  will  be  useful 
in  making  temperature  calculations  with  a  significant  reduction  in  cost. 
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Only  the  results  of  this  approximation  analysis  are  presented  here, 
approximate  flux  is  given  by  the  equation 


Tt  M)  ' 

P(V)-  -4  ^  iC«(s)B(s)G4[  \  d  5cf  <j 


O  o 


The 


(42) 


where  B(s)  is  given  by 

o£> 

gfs)  =  ^  B>x[Tfs)]dx  =  <r'y%, 

n 

and  the  mean  absorption  coefficient  (f  „( s)  is  defined  by  the  equation 

& 


fc>  *  r*(S)l 
t  +  TpO)  J 


kpd)  4- 


[ 


tp(i) 

+  Tprt) 


(44) 


The  term  b  is  a  constant  of  the  order  unity  which  can  be  varied 
to  improve  the  approximation. 

The  terms  ^|“R(s)  and  T'p(s)  are  the  Ross  eland  and  Planch  optical 
lengths  along  the  ray  from  point  M  to  point  R  in  Figure  2,  and  are  given  by 


T„(5)  r  ^ 

Tp  ( s)  =  (V<h 


where  the  Planck  and  Rosseland  absorption  coefficients  are  given  by 
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kf(T)  = 


and 


k«  (  t)'1  = 

^(T*  Ti 

1\ 

In  equation  42,  45  and  46,  s  =  0  corresponds  to  point  M  in  Fig¬ 
ure  1,  and  therefore  the  integration  proceeds  along  a  ray  from  the  arc 
exterior  to  an  internal  point  R.  When  s  =  R^  ~p  and  r  represent 
optical  thicknesses  of  the  arc  in  the  direction  of  the  angle  0.  Depending 
on  the  temperature  distribution,  pressure  and  location  of  the  point  R,  the 
■:'rc  could  be  °PticaU-y  thin  when  0  =  0  and  optically  thick  when  0  =  7  . 

The  dependence  of  the  optical  thickness  on  the  angle  0  is  a  characteristic 
of  the  cylindrical  geometry. 

Under  optically  thin  conditions,  when  7  p  and  ~  are  much  less 
than  unity,  the  mean  absorption  coefficient  (Ta  approaches  the  Planck  ab¬ 
sorption  coefficient  p  and  equation  42  is  exact. 

Under  optically  thick  conditions  when  7  p  and  7  are  both  much 
greater  than  unity,  approaches  the  Rosseland  mean  and  equation  42 
is  a  good  approximation.  The  quality  of  the  approximation  afforded  by  equa¬ 
tion  42  when  the  rays  are  neither  optically  thin  nor  thick  will  be  determined 
bv  comparison  with  exact  flux  calculations. 

Results 


The  purpose  of  this  investigation  is  to  determine  radiant  flux  dis- 
ibutions  throughout  an  arc  corresponding  to  hypothetical  temperature  distri¬ 
butions.  Calculations  have  been  made  for  xenon  at  pressures  of  15  and  50 
atmospheres . 


o* 


O'1  T  + 


(^7) 


r  j_ 

Jo  Va(t)  aT  ^ 


(W) 
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In  Figures  3,  4,  5,  and  6  the  absorption  coefficient  of  xenon  is 

plotted  versus  wavelength  for  pressures  of  15  and  50  atmospheres  and  for 

temperatures  of  5>000c,  10,000°,  15,000°  and  20, 000°K  respectively.  These 

(5) 

continuum  absorptive  ties  were  calculated  by  Messrs.  Church  and  Schlectw/ 
following  the  theory  of  Biberman  and  Norman^* ^  and  Yankov^,  using  par¬ 
tition  functions  and  particle  densities  derived  from  a  modification  of 
DreUishaks^,10,1J')  procedure.  A  separate  computer  program  was  written 
for  the  absorptivity  calculations  and  the  computed  absorptivities  stored 
on  dis.'  for  the  flux  program. 

The  optical  thickness  ^  ^  is  defined  by  the  equation 

^  ^  J  5  ^  (49) 

o 

From  Figure  3,  for  a  pressure  of  50  atmospheres,  X  is  of  the 
order  of  1  x  10  cm"  .  If  the  arc  radius  is  one  centimeter,  and  1^(0) 
is  of  the  order  of  one  centimeter,  7  1  an<i  a  5000°K  arc  is  optically 

thin  in  all  radial  directions.  From  Figure  5,  for  a  pressure  of  50  atmos¬ 
pheres,  )(  is  of  the  order  of  10  and  7  1  80  tiia't  a  15>000°K  arc 

is  optically  thick  in  all  radial  directions.  Between  10,000°K  and  15,000°K 
the  arc  is  neither  optically  thin  nor  thick.  Furthermore  between  5>000°K 
and  3.5* 000° K,  the  absorptivity  varies  by  eight  orders  of  magnitude. 

For  the  flux  calculations,  isothermal,  linear  and  "parabolic"  tem¬ 
perature  distributions  were  assumed.  Although  the  arc  temperature  is  always 
conduction  controlled  near  the  flashtube  wall,  under  certain  conditions  the 
arc  may  be  fairly  isothermal.  In  general,  the  arc  temperature  would  be 
expected  to  be  "parabolic",  but  a  combination  of  isothermal  and  linear  pro¬ 
files  might  be  used  to  bound  the  flux  distribution. 

In  Figure  7  the  flux  distribution  is  shown  for  an  isothermal  arc 
of  20,000°K  at  a  pressure  of  50  atmospheres.  From  equation  26,  when  r  =  0, 
1^(0)  is  equal  to  the  arc  radius  for  all  values  of  0  and  the  flux  must 
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vanish.  From  Figure  6,  ^  ^  is  of  the  order  of  5  cm'1.  Letting  ft  =!c  , 

then  from  equation  40,  the  shape  of  the  flux  curve  is  essentially  determined 
by  the  integral  $  J  C  *  RM  (  ^  j 

In  Figure  8  are  shown  two  temperature  profiles  T,  and  Tp  and  the 
corresponding  flux  distributions  and  Fg.  ^temperature  ^  is  constant  at 
20,000°K  up  to  r  =  0.9  cm  where  it  drops  linearly  to  2000°K  atr  =  1.0  cm. 
This  temperature  profile  to  some  extent  simulates  the  effect  of  a  thermal 
conduction  layer  near  the  arc  boundary.  The  corresponding  flux  distribu¬ 
tion  F]_  follows  the  flux  distribution  of  Figure  7  until  the  "conduction 
layer"  reduces  its  boundary  value.  Temperature  Tg  decreases  linearly  from 
20,000°K  at  r  -  0  to  2000‘K  at  r  =  1.0  cm.  Both  flux  distributions  F,  and 
P2  assume  maximum  values  at  inferior  points.  1 


In  Figure  9  the  flux  distribution  is  shown  for  an  isothermal  arc 
at  15,000°K.  The  fluxes  in  Figures  7  and  9  are  almost  in  the  ratio  of 
(20,000/15,000)  as  would  be  expected  from  equation  40  since  the  "average" 
aosorptivities  are  approximately  equal,  i.e..  of  the  order  of  5  to  6  cm"1. 

In  Figure  10,  the  temperature  varies  linearly  from  15,000°K  at 
r  =  0  to  12,000°K  at  r  =  l.o  cm,  and  fluxes  are  shown  for  pressures  of  15 
and  50  atmospheres.  An  inspection  of  Figures  3  to  6  shows  that  the  absorp¬ 
tivity  for  15  atmospheres  is  always  less  than  that  for  50  atmospheres.  From 
equation  26,  the  integrand  ^(s)  b^(b)  ^(s )]  gives  the  amount  of  radia¬ 

tion  leaving  a  point  s  which  arrives  at  a  fixed  point  R.  The  Planck  function 
Bx(s)  is  independent  of  pressure.  Therefore,  two  arcs  with  the  same  tempera¬ 
ture  distribution,  but  at  different  pressures,  will  have  different  flux 
distributions  because  of  differences  in  the  product  ft  G,  fp,  (s)J .  The 
term  ft ^(s)  G1[o^(s)']  behaves  like  the  function  k  e~Fys  £hich  approaches 
zero  for  small  and  large  values  of  ft  x  and  which  has  a  maximum  for  some 
vaiue  •  For  a  given  s,  if  ft  **,  a  reduction  in  V  due  to  a 
reduction  In  pressure  causes  a  reduction  in  the  amount  of  radiation  leaving 
s  and  arriving  at  point  R.  Therefore,  the  overall  effect  of  a  reduction  in 


pressure  is  a  reduction  in  flux  distribution. 


In  Figure  11,  the  temperature  varies  linearly  from  15,000°K  to 
2000°K.  As  in  Figure  10,  the  flux  at  15  atmospheres  is  less  than  the  flux 
at  50  atmospheres  for  the  reasons  just  given. 

The  last  temperature  distribution  is  shown  in  Figure  12.  This 
"parabolic"  temperature  profile  was  observed  in  a  nitrogen  arc  by  Schmitz*-12) 
and  is  most  likely  to  occur  in  xenon.  The  flux  distribution  for  15  atmos¬ 
pheres  is  again  less  than  that  for  50  atmospheres  and  both  flux  profiles 
have  maxima,  which  is  characteristic  of  wall  cooling  effects. 

These  hypothetical  temperature  profiles  have  been  used  to  illus¬ 
trate  radial  flux  computations  for  a  one  ce  itimeter  xenon  arc.  For  operating 
conditions  that  could  produce  an  isothermal  arc  with  a  thin  conduction  layer, 
or  a  "parabolic"  arc,  the  value  of  the  flux  at  r  =>  1.0  cm  gives  the  radiation 
of  the  arc  to  its  surroundings. 

For  the  arc  temperature  in  Figure  8,  the  arc  radiation  is  50  x  10^ 
watts/cm2  which  is  equivalent  to  1.59  x  10^  Btu/hr  ft2.  Therefore,  radiation 
from  high  pressure-high  temperature  self -absorbing  arcs  can  be  significant. 
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Appendix  A 


Evaluation  of  V  ‘  F 


From  equation  l4, 


(A-l) 


Taking  the  divergence  of  both  sides  of  equation  A-l 

^  V- (?!>)  4,du> 


U,I4* 


(A-2) 


or 


-  4 


<"-4TT 

In  cylindrical  coordinates 


^  4(  ?•  SJ  I,\ 


C*J=^1T 


(A-5) 


v-  *  7 


(A-4) 


Since  the  arc  is  symmetrical, 


V  TX  -  ? 

dllr- 


(A-5) 


and 


Now  from  equation  9 > 


Go  =  4*  «r  4*  4v  6  +  4}  h* 


(A-7) 


find 


go  •  v  X  N  ~  4_5>  -  4,  cj_£> 

ci  S  |r 


(A-8) 


Using  equations  A-4,  A-6  and  A-8,  equation  A-3  becomes 

V.  F\  =  1  j  4, 1*1*  -V-  j  ^ 

From  equation  18, 


(A-9) 


~  X\  B/X  -  K  i> 

d  s  ' 


(A-10) 


and  from  equation  l4 


F>  (>|  -  ^  4i 


clob 


^'4  if 

Using  equations  A-10  and  A-ll,  A-9  becomes 


(A-ll) 


A-3 


V*  F>  -  4* ^  F\ 


(A-12) 


cu~  4'u- 


Since 


F(V)  *  \  F^rl^i 

'Jc, 


(A-13) 


integrating  equation  A-12  with  respect  to  \  from  0  to  ©<a  yields 

rzT  06 

^7.  p* =  4~^  K\BNax  -  ^  R>) 


(A-l4) 


also,  since 


V  •  F 


JF  1  P 
r 


(A-15) 


it  follows  from  equation  A-l4  that 


if  =  4  H  ^  x 


(A-16) 


w=4m 
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TRANSITION  PROBABILITIES  OF  XENON  I 
by 

E.  G.  F-  A.rnott 

An  investigation  was  made  of  the  possibility  of  using  the  Bates- 

Damgaard^^  method  for  calculating  transition  probabilities  and  oscillator 

strengths  for  some  of  the  spectral  lines  of  the  rare  gases,  particularly 

Xenon.  The  Bates-Damgaard  approximation  consists  of  assuming  a  Coulomb 

field  for  the  atom  and  has  given  good  agreement  with  experimental  results 

for  the  simpler  systems  and  for  some  more  complicated  systems. 

The  present  work  assumes  that  the  approximation  may  be  valid  for 

the  rare  gases  where  it  is  thought  that  L-S  coupling  still  occurs  lor  some 

(2) 

levels.  The  levels  for  which  this  might  oe  expected  are  given  in  Moore's'  ' 

tables  where  such  designations  are  said  to  be  significant  for  Ne,  A  and  Kr 

but  less  so  for  Xe. 

The  oscillator  strength  is  given  by 

-  -  3°^  S 

A12  g2\ 

where  g^  is  the  statistical  weight  of  the  lower  level,  \  is  the  wavelength  in 
Angstrom  units  and  the  line  strength 

S  =  S(M)  S(L)  rr2 

where  S(M)  is  a  factor  depending  on  the  particular  multiple!  of  the  transition 
array,  S(L)  is  a  factor  depending  on  the  particular  line.  These  values  can  be 
obtained  from  tables  published  by  Goldberg^  ^  and  White  and  Eliacon^) 


respectively,  a  is  the  product  of  two  quantities  taken  from  Bates'  and 


-  2  - 

Damgaardi  tables  divided  by  C  the  excess  charge  in  the  nucleus  vhen  the 
active  electron  is  removed,  i.e.,  Col  for  a  neutral  atom. 

colF(n*  i )  l(n*_1,  n*  i) 

where  n  o  C^l/2,  where  E  is  an  energy  parameter  and  i  is  the  azimuthal 
quantum  number.  A  sample  calculation  is  given  in  the  Appendix- 

Calculations  of  for  the  lines  of  A  and  Kr  given  by  Moore  as 
having  LS  coupling  were  made  and  tne  results  are  snown  in  Tables  I  and  II 
compared  with  the  experimental  values  of  Pery-Thcrne  and  Chamberlain^^  1‘or 
the  same  spectral  lines. 

Table  I 

Absolute  f12  Values  for  Argon 


Line  ($) 

Transition 
(ftischen ) 

f(exp) 

Put 

f(calc 

B-D 

6965 

s5  ■  P2 

0.04 

0.09 

73  6U 

s4  ‘  p3 

0.12 

J.14 

7515 

s4  "  p5 

0.15 

0.12 

8015 

b5  ‘  p8 

0.09 

0.08 

8101* 

d4  -  p7 

0.18 

0.14 

8115 

*5  "  p9 

0.27 

0.45 

8425 

ro 

V 

CD 

0.19 

0.40 

. . wiwiiiiiiiiwimiiiuiwr  mmiMpwPwlwiwiPiwiiiwuMiiiiiii.i«ii«Mi — p-p[  . MWI 
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Table  11 

Absolute  f12  Values  for  Krypton 


Line  ($) 

Transition 
(Rischen ) 

f(exp) 

P-T 

f  ( calc ) 
B-D 

7601 

s5  p6 

0.1b 

0.28 

7695 

S5  "  p7 

^0.03 

0.006 

8104 

s5  -  p8 

0.07 

0.085 

8113 

s5  p9 

0.23 

0.48 

8780 

s4  -  p8 

0.44 

0.42 

8929 

S5  •  p10 

0.20 

0.104 

The  correspondence  between  calculated  and  observed  values  is 
remarkably  good  for  argon  and  also  for  krypton  except  for  the  7695A  line 
These  results  were  sufficiently  encouraging  to  suggest  that  similar  cal¬ 
culations  be  made  for  Xe  for  the  strong  lines  which  might  be  expected  to 

nave  L-S  coupling,  ibis  was  done  for  15  of  the  strongest  lines  given  in 
the  table  by  Crosswhite  and  Dieke^. 

As  a  check  on  the  results  three  sets  of  three  lines  each  were 

chosen: 

lsh  -  2p5  ls5  -  ?pQ  lS[{  -  2p9 

1%  -  3p5  is5  -  3Pg  lsh  -  3p9 

ls^  '  4p5  ls5  ■  4p8  ls4  -  % 

Following  the  method  of  Wilkerson(7)  the  quantity  log 
where  I  is  the  intensity  of  the  line  was  plotted  a£,inst  the^n^y  of 

the  upper  level.  A  straight  line  should  result  whose  slope  will  give  the 
excitation  temperature  as  given  by 


-  4  - 


T°K  =  5041  (ig  -  E^/log  Q  ( 


I  X" 


10  Vgl  fl2  m 


)  “  lo8,n  ( 


I  X“ 


■) 


10  gl  fl?  n 


The  results  are  shown  in  the  Pig.  1  for  a  16  ram  pressure  microwave  discharge. 
The  ls^  -  npg  series  does  not  seem  to  fall  on  the  same  line  as  the  others  and 
gives  a  slightly  lower  temperature.  However,  a  temperature  of  2850°K  was 
chosen  and  the  values  of  f^9  were  ca]culated  from  Wilkerson's  expression 


l12 


12  '  8, 
0 


-  ^2'h 

kT 


°1 

A  value  of  0.117  for  f^gW  was  chosen  from  the  Bates- Da mgaard  calculations  as 
a  reasonable  value  for  the  strong  line  at  8280A. 

Table  III  shows  the  values  obtained  in  this  way  for  24  strong  Xe 
lines  and  also  gives  the  values  calculated  from  the  Bates- Lamgaard  approximation. 

A  more  detailed  study  is  necessary  to  determine  the  reliability  of 
the  values  particularly  where  there  are  large  differences  between  the  two 
methods. 


'  t- 
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Table  III 


Absolute  f  g 

Values  for  Xenon 

0 

Line  A 

Transition 

f1?(2850°K) 

f(eslc) 

3-D 

IO838 

ls4  "  2pio 

.106 

9923 

ls4  "  2p9 

.152 

.434 

9800 

ls5  '  2p10 

.083 

.110 

9163 

ls4  -  2P7 

.145 

.l4o 

9  Ok  5 

ls5  "  2p9 

.0034 

.  086 

8952 

ls4  "  2p6 

.092 

8819 

ls5  _  2p8 

.  0?4 

.054 

8409 

iS5  *  2p7 

.008 

.006 

831+7 

■4^2  ”  3P^ 

.151 

8280 

'  2P5 

.117 

•  117 

8267 

ls2  -  3p2 

.222 

8232 

is,-  -  2P(. 

.062 

7641 

ls3  -  3p2 

.380 

6318 

2s8  -  6dJ 

.035 

.140 

4932 

ls,  -  »9 

.005 

.040 

4917 

lBl,  -  3Pj, 

.008 

4807 

lsl,  -  3P5 

.0076 

.006 

4671 

ls5  •  3p8 

.  01.6 

.014 

4624 

ls5  '  3p6 

.0125 

4525 

ls5  -  3p3 

.002 

4501 

ls5  -  3p2 

.006 

4079 

ls4  -  4p5 

.0034 

.0032 

3968 

ls5  “  4p8 

.0038 

.0036 

3693 

ls5  -  5p8 

.0002 

Consider  the  transition  ls^  -  2p^  in  Xe  I.  From  Bacher  and 

(8) 

Goudsmit'  '  the  term  values  are  ls^  29789.34 

2p5  17715.59 

Dividing  by  109,678  to  express  these  in  Rydbergs  gives  values  of  E  of  .2715 
and  .1615  respectively  and  therefore  values  of  V  /2  or  n  for  the  two  level 

"l-i  ■  ^ 

"1  ■  *•*» 

since  C=1  for  neutral  Xenon.  Therefore 

nl-i  -  nl  =  -°-57 

From  the  tables  of  Bates  and  Damgaard  with  1=1 


F(2.49,  1)  =  4.9 
l(-.57,  2.49,  1)  =  0.65 

From  these  values 

c2  =  (F  I^c)2  =  10.2 

Goldberg's  and  White  and  Eliason's  tables  are  reproduced  in  convenient  form 
in  Aller's  book^\ 

From  .Aller's  Table  A-2  for  a  ps  to  pp  transition 

S(M)  =  9 

and  from  Table  A-l  for  a  spin  of  1 

log  =9.95 

o 

S(L)  =  ■yi-  =  0.112 

So  that  S  *  S(M)S(L)  =  9  x  0.112  x  10.2  =  10. 3 
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COMPUTER  PROGRAMS  USED  IN  THIS  WORK 


by 

Esther  Geil 

The  five  computer  programs  written  in  ALGOL  for  the  Burroughs 
B-5500  DISK  computer  used  in  this  work  are  given  in  this  appendix.  The 
first  fqpr  programs  are  preceded  by  a  symbol  table  and  followed  by  a  sample 
calculation  printout.  The  fifth  program  whose  output  is  just  the  radiative 
flux  does  not  have  a  sample  calculation  printout.  The  five  programs  are  as 
follows:  (The  named  references  are  at  the  end  of  this  appendix) 

a  )  SIMPLIFIED  -  a  calculation  for  the  electron  density  and  spectral 

absorptivity  given  the  heavy  particle  density  and  temperature, 

(1-4) 

based  upon  the  Raizer-Penner  model'  for  the  plasma. 

b)  DOUBLE  -  the  calculation  of  the  particle  densities  and  then  the 
spectral  absorptivity  and  emissivity  using  methods  similar  to 
Drelliskak^ ^  et  al.  and  Biberman  and  Norman^^.  The  program  is 
in  two  parts,  particle  density  calculation, &  spectral  absorptivity 
calculation  with  separate  symbol  tables. 

c)  DICSLAB  -  calculation  of  the  spectral  radiance,  radiant  ttance, 

and  then  the  balancing  current  density  using  the  particle  densities 

and  spectral  absorptivities  from  DOUBLE  and  the  electrical 

(7 

conductivity  calculated  according  to  Spitzer'  *  '  et  al.  DICSLAB 
is  the  calculation  for  a  p7ane  parallel  slab  of  homogeneous  tempera¬ 


ture  and  pressure. 


-  2  - 

d)  DICKCYL  is  a  calculation  of  the  same  quantities  in  (c)  for 
an  infinite  cylinder  of  homogeneous  temperature  and  pressure. 

e)  Radiative  Flux  throughout  a  non- isothermal  non-grey  cylindrical 
arc.  This  program  is  for  the  calculation  of  the  radiative  flux 
(radiant  emittance)  throughout  a  cylindrical  arc  of  arbitrary 
spectral  absorptivity  and  radial  temperature  distribution  (the 
latter  must  be  symmetrical  about  the  center  axis  of  the  cylinder 
in  this  program).  It  uses  the  particle  densities  and  spectral 
absorptivities  calculated  by  program  ''DOUBLE". 


i 


wiwil  ih»i|.n.4  t'mmm 


Program  a 

Symbol  Table  for  Raizer-Penner  Model 

Simplified  Model  for  Electron  Density  and  Spectral  Absorptivity  of  Plasma 
D  «  thickness  of  plasma 

l[m]  =  ionization  potential  for  mth  degree  of  ionization  from  Peuner’s  model 
HNU(i)  a  hV  s  the  energy  corresponding  to  the  ith  frequency  being  used. 

N  =  the  heavy  particle  (atom  and  ion)  density  of  the  plasma 
THETA  si  temperature  in  eV 

M  ss  in’  ss  average  number  of  electrons  per  atom 


IM2 


r) 


IM2P  .  I,_  1, 

vm  +  %) 

KAPPAPRIME  s=  K'  ss  absorptivity  including  stimulated  emission 
Note:  Total  number  of  particles,  temperature  in  degrees  K,  and  pressure 
in  atmospheres  are  calculated  in  the  write  statement  following  the 
computation  of  KAPPAPRIME. 

Wavelength,  tau  *s  KAPPAPRIME  x  D,  1  -  e  ,  Bv  and  I  for  each 


frequency  are  calculated  within  the  next  write  statement. 


17126126  THURSDAY,  "CTDHER  ?1,  1065 


MRU  ALGOL  VERSION  IF  9/1/65 


BEGIN 

sc 

1 1 

ok 

START 

OF 

SEGMTNT  « 

*  *  *  *  i 

»  *  *  *  * 

ooo; 

COMMENT  GEIL.FOR  Church,, 67h»F0437»5IMPlIFIED  PROBLEM! 

sc 

?! 

ok 

FILE  IN  RE»0ERC2.10))  FILE  OUT  SEII.  6(2,15)1 

sc 

?! 

ok 

COMMENT  DARTIME 

/ 

SL 

?! 

nr 

to  ortmn  listing  merge  in  blank  caro  kith  seoufnce  number 

000000301 

s 

SL 

?! 

Ttc 

00009999 

sc 

2 1 

r  t  C 

REAL  », K, N, THE TA, COUNT. M, IM? ,TE“P,E, MM, K£, tempi, J,£P51 

sc 

21 

TIC 

REAL  O' 

sc 

?  I 

7 1  C 

REAL  IM2P.LITTLEA,  AT3,  X.HNU1,MNII5.mnul»MHNU,Ci,C2,C2A,C?9,C1I 

sc 

2 1 

TIC 

REAL  L,mi,M?,F1,F?! 

sc 

?l 

Ttc 

REAL  EXP0N.RNU.FACT) 

sc 

21 

Ttc 

ARRAY  1(0161,0110(63) 

sc 

?l 

etc 

ARRAY  KAPPAPR ImE(  0 1 *00 3 , HNU ( 0 1 »00 3 ) 

sc 

?t 

l  nt  2 

FORMAT  T I TLE ( "N ARE  OF  THE  GaS  IS  REAO  FROM  TITLE  CARO"), 

sc 

21 

1  4  1  C 

start 

OF 

segment  *1 

»  *  •  *4 

<**•* 

0004 

NTHEtaC"N««.R9.0,X5."THETA*",R7.A), 

sc 

4! 

1  o  1 0 

IM("M«,«6,"I(M3»/(I1,F10,3)), 

sc 

4  t 

1410 

IMS(«i(m.i/2).»  ,F8.«.X5."I(M*i/2)«"  ,F*.»), 

sc 

4! 

into 

NIS(«N«».£10.1). 

sc 

4  t 

1  4IC 

TITLEPL0T(X10»"TH£TAm«,F7.«,"  EV",  XT,  "NTOT  Al«",  £9. 3. X7, "NOEL'S  ITY.«,  £9 .  3, 

sc 

4! 

MID 

"  PARTICLES/CM3*  // 

sc 

4! 

laic 

X16,"T«"»F8.I."  OEGREES  X XT , "Pp". E9. 3, «  ATM"  ///// 

SC 

4  t 

1  4  1  C 

»  HNU  MAVELENGTH  KAPPA-PRIME  (-TAU)  RNU", 

sc 

4  1 

1  4  1  C 

X 1 1 , " I NU"  / 

sc 

4! 

1  4 !  C 

"  EV  MICRONS  1/CM",  X9  ,  "1  -E  "  , XU, "MATTS/CM  STFP"/ 

sc 

4 1 

1  41C 

)> 

sc 

4  1 

1  4  !  C 

LISTPL0T(F5.1,E12,3,4EU,3), 

sc 

4  t 

1  410 

M8AR("AFtER",IJ,"  ITERATIONS,  M*AR.",r6.3,"  MHERE  M-Kf.",F6. « ) 1 

sc 

4  1 

1  4  1 C 

onn» 

TS  0122  LONG#  NEXT 

S  EG 

0002 

OEFINE  JOO«FOR  J»0  step  1  UNTIL  A  00  1, 

sc 

2l 

1  4 !  C 

J001«F0R  J*1  STEP  1  UNTIL  6  Do  «) 

sc 

21 

1  4lC 

LAREL  START. EXIT, PRINTIT) 

sc 

2  t 

1  4tC 

TIMEITCGEIL '1 

sc 

2  t 

1  4 1  C 

FACT*1. 1909p-12k(1 1605/1 ,A3P)‘3I 

sc 

2t 

1SIC 

A*3»S1 J 

sc 

2l 

IT*  5 

EPS-,001 1 

sc 

2! 

1*12 

START  1 

sc 

2i 

10!  1 

REAOfREAOER. TITLE) (EXIT)!  HRI TE( GE I L (PAGE  3 ) )  MR! TE ( GE I L, TI TLE ) > 

sc 

2  l 

?n  id 

REAO(REAf)EP./,0)» 

sc 

?t 

son 

REAOfREAOFR./. JOU  I(J) )t 

sc 

2! 

4  2  i  3 

MRITE(GEIL»IM»J00(J.I[J33 W 

sc 

2  * 

S  4  1  3 

reao[Reaoer«/»f(;r  j-i  stf®  i  until  1000  oo  hnui.'W 

sc 

?! 

ARll 

NHNU-J-l 1 

sc 

?! 

TO  I  3 

CLOSEfREAOEP, RELEASE)) 

sc 

2! 

«M  tC 

a-/ 


FOR  N*5»U  00  BEG'N 

sc 

21 

«?!  2 

J 1 

HRITE<GE!i.(  =  AGE))> 

sc 

2! 

«St? 

Li 

for  theta. i  no  begin 

sc 

?! 

HA|  1 

MRITE(GEIl#NTH£TA,N,THETA)> 

sc 

2! 

01  i  C 

1 1 

AT3*A«S0RT(THETA.3)) 

sc 

2 t 

1  At  !  1 

K.AT3/N) 

sc 

?! 

t  o/i  i  r 

jnoi 

sc 

2! 

IAS!  j 

i  f 

=  5 

nitouoit  d> 

sc 

?! 

1 1 1 1C 

y  m 

Ml»l/2) 

sc 

?! 

1  1  ?!ic 

-I 

m2»3/2) 

sc 

?! 

lists 

%.£ 

FI  »K«ExP(-I (DI/THETA) -Mi  ) 

sc 

2! 

1 1  5 1 C 

F2»K*EXP(-I[1 I/TheTAI-m?) 

sc 

2! 

11M1 

.  E 

EOR  COUNT. 1  STEP  1  UNTIL  1DOD  00  BEGIN 

sc 

2! 

1?1  17 

*5 

H*fF2«Nl-Fl«M2)/(F2-Fl ) J 

sc 

?! 

1?  2 IC 

IM2»ItTEMR.ENTIERf  TEMPI  *M  + 1/2  n-(TExP"lEHPl  +  l  )«D!tTEMP)l 

sc 

2  ! 

1  ?6 !  1 

E»EXP(*Im2/TMETA)» 

3C 

?! 

n?t? 

KE»K*E) 

sc 

2! 

not? 

W 

IF  ABSf TemP.KE-M)  <  EPS  THEN  GO  PRINTJT) 

sc 

2! 

IIS!  3 

1 

rl»F2i 

sc 

2! 

list  l 

fi»temP) 

sc 

2! 

note 
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Ml. M2) 

Sc 
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sc 

2! 

1  00 1 2 

ENO  OF  COUNT  LOOP) 

sc 

2! 

Mill 

ml 

PRINTITl 

sc 
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1  A  3  t  2 

M* 1 TE( GE IL > MB AR, COUNT# M. TEMP)) 

sc 

2! 

lflO  !0 

LITTLEA»7.3»-16) 

sc 

2! 

ISSt  1 

IM2P»IlTEMP»ENTIER(TEMPl»M*3/2))-(TEMP*TEMPl«l )*DItTEMPl) 

sc 

2! 

1  *S  6 1 C 

MRITEIGEIl* IMS. IMP# IM2P  )) 

sc 
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1  A?  t  1 

ei»LITTLEA/THETA»2*(N»2xM/AT3)x(M»2*,25)) 

sc 

2! 

17a  t  \ 

C2*LITTLEA/THETA*P*Nm(M,#5)*2) 

sc 

?! 

1 70 1 2 

C2A.e2*N»M/fP*AT3)» 

sc 

2! 

1  A3  1 1 

C2B»C2«lM2/THETA) 

sc 

?! 

1  Aft  t  C 

C3»LITTLEA/THETA»3»N*t (M*.5)»PXIM2+(M+1,S)*PXIM2P)) 

sc 

2! 

1  AT t  3 

TOR  J»1  STEP  1  UNTIL  NHNU  00  BEGIN 

sc 

2! 

l«a«5 

x»hnuiji/tmeta) 

sc 

2! 

lootc 

IF  XS l M2  t«EN  KAPPAPRIMEC  JI»C1«EXP(X)/X*3  ELSE 

sc 

21 

?oot? 

IF  X2IM?P  THEN  KAPPaPR  IMEC  J]»C3/X»3  else 

sc 

2 : 

2r>5  1 2 

KANFAPRlMEt  JI*(C2AKEXP(X)*C2B)/X»3) 

sc 

?! 

?  t  0  l  C 

end  Of  j  loop) 

sc 

?! 

21  A  t  3 

*  l 

MRITEIGEILIPAGEI)) 

sc 

2! 

?17!C 

-I 

MR ITEfGElL'TlTLEPLOT, THETA# TEMPI ♦fl*M)*x,N# 

sc 

2! 

2 1  o  1 3 

TEMP»116D5*THETA,TEMPlxTEMP/(2,ABma«2r3))) 

sc 

2! 

2?<ri2 

1 

mrite(geil>listplot,for  jm  stem  i  until  nhnu  on  (Tempi. HNUfj), 

Sc 

2! 

?o?t  1 

s 

tc-S 

1,2397/TEMPI.  TEMP*KAPPAPRIM£(  jj. 

sc 

?! 

?*0t  3 

ExPnN»l-EXP(-TEMPxO)#BNU»F ACT "TEMPI ♦3/(FXP{TEMPi /THETA 

sc 

?! 

?  S  7  j  3 

& 

£ 

% 

)-1)*fxpon  xB-JM)  ); 

% 

sc 

?! 

?fStC 
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sc 


21  27SI1 


K«!tE<s£iLtP»atn» 

fno  or  theta  loopi 
END  OF  N  LOOP J 
THE!T(GE1L)> 

EXlTl  ENO. 

ono?  is  n?*3  long,  next  sec.  onor 


EXP  IS 

segment  NUMBER  0005. 

PST  AOORESS  IS  0117 

SORT 

OOOJ 

0116 

ouTPurtm 

0007 

0034 

block  control 

0008 

0005 

INPUT(R) 

0009 

0110 

OC  TO  SOLVER 

0010 

0107 

ALGOL  RBITE 

0011 

0014 

ALGOL  REAO 

0012 

0013 

ALGOL  SELECT 

0013 

0016 

number  OF  ERRORS  OETECTEO  •  080  *!T*  ERROR  «»S  SFO  I 

MT  Size- 008*1  TOTAL  SEGMENT  SUE-00583  KOROSI  OISK  STORAGE  REG, -00693  NO»0S»  NO.  5EGS..0014. 

ESTIMATE!!  CORE  STORAGE  REQUIREMENT  •  03522  -OROS. 

17»28«B8  THURSDAY.  OCTOBER  21.  1988  PROCESSOR  TIME  •  10.28  SECONDS  I/O  THE  •  17.20  SECONDS 


SC  21  2 7  A  I C 

sc  2 1  ?7m; 

SC  ?i  27910 

SC  21  ?«0lC 


LABEL  OOOOOOOOOlINE  00063294T  COMPILE  1050118  BT  GEIL  USING  ALGOL 


F0437EG 
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“  IfMJ 

o  12.122 

t  21.200 

2  32. ton 

’  4».oon 

4  52.100 

5  52.100 

6  too. non 


N«  5.9*18  THETA-  1.0000 

»rTER  6  ITERATIONS.  NBAS*  0.111  **ERE  M*KE»0.0000 
IO»'l/2)»  8.5965  I<**l/2)»  12,8895 
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ThET*=  1.0000  E V 


NT0TAl»3. 354*418 


NUENSI'"r»5.f)00»»l»  PARTtClES/CMi 


T *  11605.0  DEGREES  *.  R*S.787**00  ATM 


ii 

MNU 

88VELENGTM 

KAPPA* PRIME 

(-1*1 '  ' 

RNU 

ii 

Ev 

microns 

1/CM 

1-E 

HATTS/CM 

0.0 

1 ,  280**03 

1.771440* 

1.0004*00 

6,2364-07 

» 

0.1 

2.079**01 

1. 98R4A03 

1.0004*00 

1.5264-03 

II 

0.1 

1  ,?80**0l 

1 .9554,02 

1,0004*00 

3.952*-03 

11 

0.2 

8 , 765*  *00 

6 , 0900*0 1 

1.0004*00 

1.3034-0? 

0.7 

6,199»*00 

2.7014*01 

! , 000  9*oo 

2.262*-02 

0.3 

9 ,959**00 

1.8584*01 

;. 6004*00 

?. 443**02 

0.3 

4. 132* *00 

S, 6454*00 

9,9994*01 

4.8314*02 

s  I 

0.9 

3. 542* *00 

5.8554*00 

9.97i*. 01 

6.40  44-02 

1 1 

0.9 

3  •  099*  *00 

4.1284*00 

9, 636**01 

8.1454-0? 

0.5 

2,755**00 

3.0454*00 

0.524**01 

1.0044-01 

0.5 

7 , 479**00 

3.3334*00 

9.0304-01 

1,2064*01 

0.6 

2 ,066*  *00 

1.4924*00 

7.752**01 

1.6454*01 

n 

0.7 

1 ,771**00 

1.0394*00 

6,461**01 

2.1l8**01 

0.8 

1.5504*00 

T. 6904-01 

5.365**01 

2,613**01 

?  i 

0.9 

1 .377**00 

.9*94-01 

4,4954-01 

3.1264-01 

1.0 

1 , 280*  *00 

8.809**01 

3.618**01 

3.6434*01 

1.5 

8,?65*-0i 

2.349**01 

2,0946-01 

6.0684*01 

2.0 

6.199**01 

1 , 634*-0 1 

1.508**01 

7.8384-01 

2.5 

4.959**01 

1.3794-01 

1  .288**01 

8.746**01 

3.0 

4.132**01 

1.3164-01 

1.2334-01 

8,8334-01 

3.5 

3.542**01 

1.366**01 

1.2774-01 

8.3364*01 

9.0 

3.099*»0i 

1.509**01 

1 . 4°1 *-0l 

7.474**01 

4.5 

7.755**01 

1  .748**01 

1.6034-01 

6.408**01 

5.0 

7 , 479**0 1 

2.101**01 

1.893**01 

3,306*-01 

6,0 

2 ,066*-0 1 

3.304**01 

2.614**01 

3.1604*01 

7.0 

1.771**01 

5.656**01 

4.3204*01 

1.9604*01 

8.0 

1.550*-01 

1 .0304*00 

6.830**01 

1.0734*01 

9.0 

1.377**01 

1.7464*01 

1 .000*600 

5.6324*02 

10.0 

1,240**01 

1.4484*01 

i.ooo**flO 

2,842**02 

12.0 

1,033**01 

1.8634*01 

1  .000*400 

6.646**03 

19.0 

8.655**02 

3.9424*01 

1  ,000*400 

1 .428**03 

16.0 

7.748**02 

2.759*«02 

1,000*400 

2.883**04 

18.0 

6.687**02 

J.070*«01 

1. 0004*00 

3.360**03 

20.0 

8.199**02 

2.2384*01 

1.000*400 

1.032**03 

25.0 

4.959*-02 

1 , 1 46**0 1 

1.0004*00 

1.338**07 

0 

30.0 

4,1 32**02 

6.6324*00 

9.9B74-01 

1.381*-09 

35.0 

3.542*-02 

4.1764*00 

9.8464*01 

1.692**11 

40.0 

3.099*-O2 

2.7984*00 

9.3914-01 

1  .702**13 

r  \ 

45.0 

2.755*-02 

1.965**00 

8.5964*01 

1.6134*15 

50.0 

?.479*-02 

1.4334*00 

7.613**01 

1.5094-17 

i  \ 

55.0 

?.254*-02 

1 ,076**00 

6.3914*01 

1.3334-19 

60.0 

2.0684-07 

8 . 290**0 1 

5.6334*01 

1.1844*21 

65.0 

1.907**02 

6.3204-01 

4,7904-01 

1 • 0144-23 

f — i 

70.0 

1.771*-02 

5.2214-01 

4,0674*01 

6.5334-26 

f  s 

75.0 

1.853**02 

4.244**01 

3.4394*01 

7.0734-28 

80.0 

1.550*-02 

3.497**01 

2.9314-01 

5.7844-30 

85.0 

1.458**02 

2.916*-01 

2.3294-01 

4.673**32 

90,0 

1.377*- 02 

2 ,456*-0 1 

2.1784-01 

3. 739**34 

: 

95.0 

1,305**02 

2.0894-01 

1.8634*01 

2,963**36 

p 

1 

j  \ 

•*..  J 

100.0 

1 .280**02 

1.7914-01 

1.6394-01 

2.329**38 

INU 

STEP 

6,256**07 
1 .326**03 
3.95?*-03 
i,303*-C2 
2.?62*-n? 
3,443**0? 
4.630**0? 
6,366**0? 
6.013**02 
9.339*-0? 
1,089**01 
1.275**01 
1 ,36B*-01 
1,903**01 
1.905**01 
1.391**01 
1,270**01 
1.182**01 
1.127**01 
1,092**01 
1.087M-01 
1,097**01 

1  .027**01 
1 .008**01 
9,959**02 
8 ,463*'0? 
6.915**02 
5.832**02 
2.892**02 
6.896**03 
1.928**03 
2.885**09 
5.560**05 
1 ,032**05 
1,758**07 


1.579**09 
1.666**11 
1,598*-13 
1,909**15 
1,199**17 
6, 921**70 
6.672**27 
9. 656**29 
3,971**76 
2,996**26 
1  ,707**30 
1.182**37 
6,183**38 
5,585**37 
3,618**39 


Program  b-j_ 

Symbol  Table  for  D&JBLE 

0v^m  ?®lculate  sPectral  Absorptivities  and 
Rnissivities  Given  Temperature  and  Pressure 


JT1  =  initial  temperature  desired 
JTINC  =  temperature  step  size  desired 
•TCMhX  =  maximum  temperature  desired 
JB^LK  =  Boltzmann's  constant 

NW  =  input  as  upper  limit,  becomes  actual  value, 
for  the  atom 

NW1  =  input  as  upper  limit,  becomes  actual  value, 
for  the  first  ion 


of  number  of  energy  states  input 


of  number  of  energy  states  input 


NW2  =  input  as  upper  limit,  becomes  actual  value, 
for  the  second  ion 

WW3  =  input  as  upper  limit,  becomes  actual  value, 
for  the  third  ion 

mk  =  input  as  upper  limit,  becomes  actual  value, 


of  number  of  energy  states  input 


of  number  of  energy  states  input 


of  number  of  energy  states  input 


for  the  fourth  ion 

JC  =  a  constant  used  in  calculating  electron  density 
IP[i]  =  ionization  potential  of  the  ith  species 
NP  a  number  of  pressures  desired 

PU1  =  ^  Ith  PreSSUre<  lnpUt  ln  -‘"OsphH,.  but  converted  Internally  to  ™ 


mercury 


SVENGA [i ]  a  ith  energy  level  of  the  atom 
SVENGlfi ]  a  ith  energy  level  of  the  first  ion 

SVENG2 [i ]  a  ith  energy  level  of  the  second  ion 

SVENG3 [i ]  -  ith  energy  level  of  the  third  ion 

SVENG4 [i ]  a  ith  energy  level  of  the  fourth  ion 


SWMEGA  j  ]  =  total  angular  momenta  for  the  ith  energy  level  of  the  atom 

SV/!MEGl[i]  =  total  angular  momenta  for  the  ith  energy  level  of  the  first  ion 

SV/0MEG2[i]  =  total  angular  momenta  for  the  ith  energy  level  of  the  second  ion 

SV)6MEG3[i]  =  total  angular  momenta  for  the  ith  energy  level  of  the  third  ion 

SVj&lEGk  [i  ]  »  total  angular  moaenta  for  the  ith  energy  level  of  the  fourth  ion 

NLAMBDA  e  number  of  wavelengths  desired 
ALAMEDA  [i]  -  ith  wavelength 

JELEC  =  electron  density  (called  NELEC  cn  output  sheet) 

JT  =  current  value  of  temperature 
JP  =  current  value  of  pressure 

JT|6tl  a  total  particle  density  (called  NT0TL  on  output  sheet) 

JNQ  «  cutoff  energy  for  the  atom 

JN1  a  cutoff  energy  for  the  first  ion 

i 

i 

JN2  s*  cutoff  energy  for  che  second  ion 

JN3  »  cutoff  energy  for  the  third  ion 

i 

JN4  =  cutoff  energy  for  the  fourth  ion 

JAT/0M  =  atomic  particle  density  (called  NO  on  output  sheet) 

| 

JCHR1  =  particle  density  for  the  first  ion  (called  N1  on  output  sheet) 

JCHR2  «  particle  density  for  the  second  ion  (called  N2  on  output  sheet) 

JCHR3  =  particle  density  for  the  third  ion  (called  N3  on  output  sheet) 

JCHR4  a  particle  density  for  the  fourth  ion  (called  N4  on  output  sheet) 

JSUMA  a  internal  partition  function  for  the  atom  (called  QO  on  output  sheet) 

JSUM1  =  internal  partition  function  for  the  first  ion  (called  Q1  on  output  sheet) 

JSUM2  «  internal  partition  function  for  the  second  ion  (called  Q2  on  output  sheet) 

JSUM3  -  internal  partition  function  for  the  third  ion  (called  Q3  on  output  sheet) 

jj 

JSUM4  a  internal  partition  function  for  the  fourth  ion  (called  Q4  on  output  sheet) 

H 

JV1  a  ionization  potential  lowering  for  the  atom 


ii 


o 


Program  \>2 

Symbol  Table  for  the  Spectral  Absorptivity  Itert  of  DOUBLE 
T  «  temperature 
NO  =>  atomic  density 

QO  =  internal  partition  function  for  the  atom 
Q1  =  internal  partition  function  for  the  first  ion 
NU  =  V  s  frequency 

KO  =5  total  spectral  absorptivity  for  the  atom 

KOPRIME  a  effective  spectral  absorptivity  for  the  atom,  including  stimulated 
emission 

XI[INU]  =  the  Biberman- Norman  factor  for  the  frequency  INU  x  10“ cycles/sec 
H  =  Planck's  constant 
K  =  Boltzmann's  constant 

V6P  b  s  ionization  frequency  from  the  6P  state 

V7P  =  V  =  ionization  frequency  from  the  JP  state 

V5D  =  s  ionization  frequency  from  the  5D  state 

V6d  b  s  ionization  frequency  from  the  6d  state 

V1MVG  =  V-  -  V  where  Vn  =  ionization  frequency  of  lowest  level  not  considered 
individually,  and 

v  =  ionization  frequency  of  the  ground  state  where  hVg  8  ionization 

D 

potential 

GP  =  degeneracy  of  each  of  the  p  levels 
GD  =  degeneracy  of  each  of  the  d  levels 
A6P  =  cross  section  of  the  6P  state 
A6D  b  cross  section  of  the  6d  state 
A7P  =  cross  section  of  the  TP  state 
A7D  ■  cross  section  of  the  JD  state 

Note:  The  emission  coefficient,  e,  is  calculated  within  the  final  write  statement- 


L 


. . I . . . . 


JV2  a  ionization  potential  lowering  for  the  first  ion 
JV3  sr  ionization  potential  lowering  for  the  second  ion 
JVU  s  ionization  potential  lowering  for  the  third  ion 
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1  =~= 

1 _ §J 

1AIS9IAV  MONDAY  *  OCTOBER  25.  1965  NRL  ALGOL  VERSION  Of 

9/1/65 

1  M 

BEGIN 

sc 

n 

010 

i 

START 

0002' 

if  If 

StVE  FILE  PASSKAPPA  DISH  SERIAL  r 20 M BOO] ( 2, 60. t 700. SAVE 

100)1 

sc 

21 

mo 

l|  ~ 

FILE  IN  REAOER  f2»IO)J 

sc 

2* 

312 

1  n 

FILE  OUT  PRINT  A*  GE1L  "*  CHUHC**"(  c ,15 ) ) 

sc 

2* 

7*0 

1  Li 

REAL  R!SL««ISU»N8STEPS»B1SLNG;nI 

sc 

21 

1 0 » 2 

CONNEnT  OAflTlNE 

t 

SL 

21 

1012 

TO  obtain  listing  ncrge  in  blank  CARO  KITH  SEQUENCE 

NUMBER 

c 

fp> 

o 

o 

© 

o 

o 

© 

s 

SL 

21 

1012 

99999999 

sc 

21 

1210 

REAL  NLAMROA.ILANROAJ 

sc 

21 

1210 

ARRAY  X 1 10 1 2011 

sc 

21 

1210 

array  karrayihqoh 

sc 

21 

1313 

array  ALAMB0AI0I90II 

sc 

21 

1512 

\  i 

REAL  JT, JATON.JSUNA. JSU«1 1 

sc 

21 

IFII 

OEFlNf  GEILMRINTf  1 

sc 

21 

ITU 

BEGIN 

sc 

21 

17*1 

OEFINE  STIL»*I  step  I  UNTIL  *1 

sc 

21 

1711 

START 

nr  srnntNT  * 

***** 

***** 

OOOA 

REAL  TENP»TENRI»T£MP2I 

sc 

II 

oto 

integer  inoexii 

sc 

41 

010 

integer  nn.nni.nn7.nni.nnai 

sc 

4 1 

mo 

integer  oxii 

sc 

41 

oio 

REAL  XO.YO.XN.YNI 

sc 

41 

0*0 

REAL  KTl 

sc 

4  I 

0*0 

INTEGER  JKX.  JKI,  JK2,  JKJ,  JKC*  JK»  JN>  Jjl 

sc 

At 

oto 

REAL  JTI.  JZEFF ,  oTlNC*  JFXX.  JEXI.  JEXB,  JEXC1 

sc 

41 

0*0 

INTEGER  jNQ»  JN1 ,  JNJ,  JN3.  JNA,  JL.  JI»  JNY,  JnTCHK,  JLLLI 

sc 

At 

0*0 

real  jtnax.  jroltz*  jc»  jatrt*  JCULC.  JELEC.  JP»  JT01L. 

sc 

41 

0*0 

JON.  JONI .  JQN2.  JQN3.  JQNA.  JOELI.  J0EL2.  JOELS.  JDELA. 

sc 

0*0 

JSUHJ,  JSUN3,  JSUNA.  JP0N1.  JP0R2.  JP0N3.  JPONA.  jCl>  JC2.  JCS.  JCA, 

sc 

At 

oto 

1 

JR.  JRR,  JA 1 .  JA2.  JAS.  JAA.  JA5,  JA6.  JOPOLA.  JAAA,  JBBB, 

sc 

At 

0*0 

JCHRI.  JCHR2.  JCNRS.  .  THRA.  JSNCH.  JV.  JVl.  J'»2»  JVJ.  JVA. 

sc 

At 

0*0 

I 

JRPI 

sc 

4  t 

MO 

i 

ARRAY  IP(OIA).  POHtOIAll 

sc 

4  t 

OIO 

l 

ARRAY  OELE  0  A  A  3 1 

sc 

At 

3*2 

| 

PROCEOURE  B ! SECTT X.  A.  S.  N,  Y>  |  REAL  X.  A.  B.  N.  Y  > 

RISECT1 

sc 

At 

«*l 

| 

I  BISECT  A  <  X  <  8  TO  ERROR  IN  A  J  2«-N  »  (B-A)  FOR  Y  ■  0, 

BISECT7 

sc 

At 

5*1 

| 

BEGIN  REAL  0,1. SI  X  ♦  Bl  S  ♦  Yl  X  ♦  Al  S  ♦  SISN(Y-S)!  0  »  (B-A1/2I 

PISECT3 

sc 

4  1 

5*1 

f  1  start 

OF  SEG“FNT  * 

**** 

0005 

1 

FOR  I  ♦  0  STEP  I  UNTIL  N  DO 

BISECTA 

sc 

5 1 

7*2 

| 

BEGIN  X  »  X  ♦  0  1  0  »  SIGN(V  «  S)  «  ABSC01/2  I 

BISFCT5 

sc 

51 

910 

I 

ENO  1 

BISECTA 

sc 

5  t 

14  t;i 

f  j 

ENO  BISECT  1 

BISECTS 

sc 

5* 

17*0 

1  l 

I  t. 

0005 

IS  0020  LONG# 

NEXT 

Sf  G 

0004 

| 

DEFINE 

sc 

4  t 

5*1 

b-i 


1 

j 


. . . 


JPOLA»JELECh(  JAlxl  JELEC«JEUCmjtLEC*<  J*?fcJ£L£C)*JA3xJELf.C*JAm 

It 

sc 

41 

*>u 

J*5/J£LEC)/JRR)*( 1/J£L£C)*< ( JAO/JELEC  l/JRR)#  1 

sc 

4  1 

SI  J 

PROCEDURE  0H0ER2(ENG,tlwEG,NM)l 

sc 

4  1 

*111 

VALUE  NH f 

sc 

4  1 

Ml 

INTEGER  NH 1 

?c 

4  1 

•ill 

SRRAY  ENG.OMEGtOM 

sc 

41 

5  •  1 

BEG  ■  N 

sc 

4  A 

Ml 

INTEGER  T.J) 

sc 

4  t 

Ml 

start 

OF  SEGHENl  •••***' 

»*»» 

0006 

FOR  t*i  STEP  t  UNTIL  NH  00  BEGIN 

sc 

61 

010 

TENP»ENGtI U 

sc 

61 

t  10 

TENP1 »I J 

sc 

61 

?I0 

FOR  J*Wl  STEP  t  UNTIL  NH  DO 

sc 

61 

7  1  3 

IF  TEUPI*ENOt JJ  «  TEnP  THEN  BEGIN  TENPMENP2)  TENPUJ  EnOJ 

sc 

61 

*n 

OOUBLEtENGtTENPl ] ,ENGt 1], *,ENGt 1 ] *ENGt TENP1 ] ) I 

sc 

61 

1 3 1 1 

OOUtLEIO^EGt  TENP | ] iOmEGI  T J  »»«ONEGt I  ]<ONEGI TENP1 ] ) I 

sc 

6  1 

1610 

END  OF  I  LOOPI 

sc 

61 

1SI  3 

END  OF  PROCEDURE  0R0ER2J 

sc 

61 

21 10 

0006 

IS  002A  LONG-  NEXT 

SEG 

0004 

PROCEDURE  FInO<SVENG,ENEr*NH»N#)» 

SC 

H  1 

5H 

VALUE  ENERI 

SC 

41 

Ml 

ARRAY  SVENG101’ 

SC 

41 

5H 

INTEGER  NR.NBI 

sc 

41 

5U 

REAL  ENERI 

SC 

41 

5 1 1 

BEGIN 

sc 

41 

511 

LABEL  RETURNI 

sc 

*1 

5U 

START  OF  SEGNENT  *' 

1**  * 

0007 

FOR  NG»NN  STEP  -1  UNTIL  1  00 

sc 

71 

010 

IF  ENER  »  SVCNGING  I  THEN  f-0  RETURN; 

sc 

71 

no 

RETURNI  ENOI 

sc 

71 

5 1  1 

0007  IS  0007  LONG* 

NtXT 

SEG 

ono* 

REAL  O.X-RI 

sc 

M 

5n 

INTEGER  COUNT » COUNT T»NP* I I 1 

sc 

41 

511 

INTEGER  K) 

sc 

41 

511 

LABEL  EXIT* 

sc 

41 

5H 

FORMAT  FLFI5E20. 12 )l 

sc 

>*  1 

51 1 

START  OF  SEGMENT  hi 

ft****< 

ft*** 

0006 

OOOB  IS  000*  LONG* 

NEXT 

SEG 

0004 

FORMAT 

sc 

4  1 

511 

TlTI.Et E-OUTPUT  OF  PROGRAM  1-)* 

sc 

41 

511 

START  CF  SEGMENT  * 

>  **  * 

0009 

FLzIGIiEti.B)) 

sc 

91 

5U 

0009  IS  0011  LONfi. 

NtXT 

SEG 

0004 

BEGIN 

sc 

41 

511 

ARRAY  P.NELECI0I20H 

sc 

41 

5U 

START  OF  SEGMENT  * 

»*  ft* 

0010 

LIST  LISTOIJTl. JTINC.JTMAX.  JROLTZ# NX .NW 1 ,NX?,N X3 . NXA. 

sc 

i  0 1 

210 

Jc»n,<ii»n>m.iPt3i»ipm.Np» 

sc 

in* 

1013 

FOR  INOlXlH  STEP  1  UNTIL  NP  OJ  PllNOEXl))) 

sc 

in  i 

?il  1 

FORMAT  CONST  ANTSfJTl. JTlNC.JTMAX."  "JR0LTZ>NW»NX1iNX?,NH3.NWA>" 

C  P 

1 0  t 

3d2 

ST  ART 

OF  SEGMENT  »■ 

**  ** 

0011 

"JC.IPI 1 ].IPI?).IPI3),IPt«l,"  "NP.FOR • « .PINPj* 

sc 

111 

301? 

/!B«?0.5)>> 

sc 

111 

3012 

0011 

IS  OS?A  LONG. 

NEXT 

SET, 

OHIO 

commf nt  vEdirr  input  to  part i t ic.n  series  program  i 

sc 

101 

30*2 

FORMAT  OUT  EF0RMI7E15.7).  IFORMIiOU)  1 

sc 

101 

3012 

START 

OF  SEGMENT  * 

»»»* 

OOl? 

0012 

is  sons  LONG. 

next 

SEG 

ooio 

T1MEIT(PRIN1  >1 

sc 

101 

3012 

REAOIREAOFR./.LISTO  )  t  E  XIT] 1 

sc 

101 

31 1  2 

MRITEIGElL. CONSTANTS. LISTO)) 

sc 

101 

3M  0 

XRITElPRlNTCOSLll) 

sc 

lOi 

3911 

FOR  0X1  *  1  STEP  1  UN1 IL 

sc 

101 

42*0 

np  no  p i o x .* iapioxi ]»r«oi 

sc 

101 

0210 

REGIN 

sc 

101 

A  7 1 1 

LABEL  LR08.L516.L 517.1  608.L615.L 70B.L715.L808.L8I 5.L V08.L91 5) 

sc 

10! 

471 1 

start 

OF  SEGMENT  *< 

non 

REAL  ARRAY  SVENGAIOINX  ].  SVENGi I OINXJ  3.  SVENG2 1 0 I NX2 I . 

sc 

13* 

01  o 

SVENG3E 0 1  NX  3 3 »  SVENGA [ 0 1  NX  A ] ,  SVDMEGAIOIMH  3.  SVOMEG 1 ( 01  NX  1 3 . 

sc 

1  3 1 

fl«2 

SVOMEG?(OINX23.  SV0MEG3 1 0 i NX  3 3 »  S VDME0A 1 0 1 NXA 3 .  SVSUMA [0 1  NX  3 . 

SC 

131 

191? 

SVS1 CO |NH l ] *  SVS2C0INX?].  SVS3IOINX33. 

SVSAIOlNXAI. 

SC 

13i 

3012 

SVSIOlNHl) 

SC 

131 

At  12 

LIST  LISTltFOR  0x1*1  STEP  1  UNTIL  NX 

00 

SVENGA  COXI33I 

SC 

131 

AAIO 

LIST  LIST2(F0R  0X1*1  STEP  1  UNTIL  NX 

00 

SVOMEGACOXl 331 

SC 

131 

5312 

j  ; 

LIST  LIST3I FOR  0X1*1  STEP  1  UNTIL  Nil 

00 

SVENGI  C0X1I3I 

SC 

131 

6212 

LIST  LISTAI FOR  0X1*1  STEP  1  UNTIL  NX1 

00 

SVOMEG 1 IDX1 331 

SC 

131 

7112 

n 

LIST  LISTSIFOR  X!*l  STEP  1  UNTIL  NX2 

00 

SVENG2  (0X1121 

SC 

131 

8012 

LIST  LIST6IFUR  0X1*1  STEP  1  UNTIL  NX2 

00 

SV0MEG2CDX 1 3  3 1 

SC 

131 

8912 

LIST  LI ST7( FOR  OXj*l  STFP  1  UNTIL  NX3 

30 

SVENG3  10X1131 

SC 

131 

9B  12 

1 1 

LIST  LISTS! FOR  0X1*1  STtr  1  UNTIL  NW3 

013 

3V0MEG3I DX 1131 

SC 

13* 

10712 

*  * 

LIST  LI ST9(FnR  0X1*1  STEP  1  UNTIL  NX« 

00 

SVENGA  10*1)3) 

sc 

131 

11612 

n 

LIST  LIST10I FOR  0X1*1  STEP  1  UNTIL  NXA 

00 

SVOMFGAf 0X1 3 ] 1 

sc 

131 

12512 

1 « 

3  \ 

LIST  LISTlltrOR  IN0EX1*1  STEP  1  UNTIL 

NX 

no  svsc index i 3 . for  inoexui 

sc 

131 

13*12 

STEP  1  UNTIL  NX l  00  SVS1 C I  NOE  * 1 3.  FOR 

INDEX1M  STEP  I  UNTIL  NX?  00  SVS2I 

sc 

131 

1*013 

n 

IN0EX1 3. FOR  IN0EX1*1  STEP  1  UNTIL  NX 3 

no 

SVS31 1NOEX13.EOR  1N0EX1M 

sc 

131 

1*713 

L3 

STEP  1  UNTIL  NXA  00  SVSAI INDEX1 3. JT3 1 

sc 

131 

15513 

F  5 

REAOIREAOER.  /  .LIST13I 

sc 

13* 

16512 

NX  *0Y1-1» 

sc 

1  3  A 

16  9)0 

LI 

REAOIREADER.  .LIST?)# 

sc 

13i 

17011 

[  i 

REAOIREAOER.  /  . LISTS 3 1 

sc 

13! 

17113 

i  [ 

i 

NX1*0X1-1» 

sc 

13! 

17711 

REAOIREAOER. /.LISTS  31 

sc 

13! 

17812 

j  — ' 


REA0IREAOER.  /  »LIST5>* 

SC 

131 

1H2I0 

NN2*0X1-1 1 

SC 

131 

186*2 

REA0IREAOEH./.LIST6  1) 

SC 

l  31 

18613 

REAOIREAOER.  /  «LIST7)I 

SC 

131 

ivni  1 

NN3*0X1-1 ; 

sc 

131 

1431  3 

REAOIREAnER./.LISTR  )» 

sc 

13> 

145*0 

REAOlREAnER.  /  »LIST4)1 

sc 

131 

108*2 

NN44DX1 -1 » 

sc 

131 

20210 

REA0(REAnER»/.LIST10]» 

sc 

131 

2031  1 

REAOIREAnER./.NLAMBOA.FOR  0X1*1  STEF  1  UNTIL  NLAMBOA  00  AL AMBOAIOXl 3)1 

sc 

131 

200  *  3 

=  1 

REAOIREAOER./.NBSTEPS]  I 

sc 

131 

21413 

CLOSE  I  RE AOER. RELEASE )l 

sc 

131 

22713 

*1 

NRITEtPAsSKAppA»*,JTl,.''TNC»JTMAX]I 

sc 

131 

22412 

NRITElPASSKAPPA#*,NLAMBOA>l 

sc 

131 

2401  1 

■*** 

NRITEtPASSKApPA.NLAMR0A*l.ALAM80AI»])l 

sc 

131 

24711 

i 

Jp 

0R0ER2I SVENG A. SVOMEGA.NN )) 

sc 

131 

250*  3 

0RDER2I SVENG 1 .SVOMEGI.NNi ]> 

sc 

131 

25310 

■** 

0R0ER2tSVENG2»SV0KEG2,NN?)J 

sc 

131 

2551  1 

f 

0R0ER2I SVENG], SV0MEG3.NN]]) 

sc 

131 

25712 

0R0ER2ISVENG4.SVDNEG4.NN4] J 

sc 

13: 

2541  3 

FOR  OKI  »  1  STEP  I  UNTIL 

sc 

131 

26210 

NH  00  SV0MEGAl0XlJ*2iiSV0MEGAt0X11*II 

sc 

131 

26210 

rr-* 

FOR  OKI  ♦  1  STEP  1  UNTIL 

sc 

131 

2671  3 

NN 1  00  SV0MEGIt0Kl]»2HSV0ME0|t0XI]4ll 

sc 

131 

26713 

—  9- 

«I 

FOR  OKI  »  I  STEP  1  UNTIL 

sc 

131 

27313- 

NN2  00  SV0MEG21OX1 J*2»SVONE02IOXll*ll 

sc 

131 

27313 

FOR  OKI  ♦  I  STEP  I  UMTIL 

sc 

131 

27913 

NN]  00  SV0ME5310X1 J*2*SV0ME0310X1]*II 

sc 

131 

27413 

FOR  OKI  *  I  STEP  I  UNTIL 

sc 

131 

28513 

NNA  00  $V0MEG4(0X1]»2H$V0«EG4(0X’  i. 

sc 

131 

285*3 

finocsvenga.ipu  ],nn,nn)» 

sc 

131 

24113 

IF  FALSE  TNLN  BEGIN 

sc 

131 

24410 

NRITEIPRINT.  fFORN.  LISTI)  1 

sc 

131 

24413 

NRITEIPRINTIOBLJ)  1 

sc 

131 

24810 

NRITEIPRINT.  EFORM.  LIST2J  1 

sc 

131 

30013 

NRItE(PRINTC0BL3 )  J 

sc 

131 

30410 

NRITEIPRINT.  eFURN.  L IST3  >  ) 

sc 

131 

30613 

NRITEIPRINTIOBLJ)  » 

sc 

131 

31010 

NRITE(PRINT»EF0Rm,LIST4  )J 

sc 

131 

31213 

NRITE(PRINTC0BL1]| 

sc 

131 

31610 

NRITEIPRINT.  EFORM.  LIST5)  » 

sc 

131 

318  ) 

NRITEIPRINTIOBLJ)  1 

sc 

131 

32210 

NRITEIPRINT. EFORM, LIST*  )) 

sc 

131 

3241  3 

NRITEIPRINTIOBLJ  >» 

sc 

131 

32810 

NRITEIPRINT.  EFURM.  LISTTJ  1 

sc 

131 

3301  3 

NRITEIPRINTIOBLJ)  1 

sc 

131 

334  10 

b-4- 


mr'W1 


I  n 

NRtTEl»RINT»EFONM, LISTS  )) 

sc 

111 

33ft*  3 

1  |  f 

NRlTE(PR|NTtORL))l 

sc 

131 

34010 

1 

NR(TF(PRCNT>  EFORMi  LIST9)  1 

sc 

13) 

349*3 

1  n 

HRlTElPRlNTlOBLl!  1 

sc 

131 

34  ft  1  0 

| 

HRlTE<PRlRT»ErORM,LlSr 1 0 1 » 

sc 

111 

346*3 

WRITE(PRINTIOBLH) 

sc 

111 

359*0 

eno  nr  if  fslsej 

sc 

1  3 ' 

354  t  3 

KT*.IBOLT?*JTU 

sc 

131 

3541  3 

TE“P  »  JC»SORT(  jTU*3*SvOREOim/ 

sc 

131 

35ft  *  0 

tSVOHEttStll  )*EXPf-tPf  n/xnj 

sc 

13; 

3*910 

FOR  0*1  »  1  STEP  1  UNTIL 

sc 

131 

3ft?  t  1 

NP  00 

sc 

131 

3ft?  1  1 

BEGIN 

sc 

131 

363*0 

NELECI0*1  1»SsRT  t  TEHPmI  TEHPpP  t  OKI  1*».M2P1«/KT)1-TENPI 

sc 

131 

36310 

NELECI0X1  1»NELECI0*1 1*.U 

sc 

131 

3ft  7  *  2 

ENO) 

sc 

131 

3691? 

TlHElT(PRtNTl) 

sc 

131 

371*3 

FOB  JTPJTl  STEP  JTINC  UNTIL  JT«»X  00  BEGIN 

sc 

131 

37?  t  3 

KT*JBOLTZ*JT) 

sc 

131 

376*0 

SVSIUPSVONEGAI  n*EXPI-SvENG»t  ll/KT]  J 

sc 

131 

377*1 

JJ*2) 

sc 

131 

360*3 

00  begin 

sc 

131 

361*2 

L51 *  1 SVS lJ J1*SVS I J J« 1 3 *SvONEG* I JJ)*EXPt*SVENG» I JJ 1 /XT) ) 

sc 

131 

361*2 

LSI  7 1  END  UNTIL  JJpJJM  »  NN) 

sc 

131 

366*3 

SySltU*SV0MEG1IU*EXPt*SVENGl  IU/KT1J 

sc 

131 

369*1 

JJ»2) 

sc 

131 

39213 

1 1.  „• 

00  begin 

sc 

131 

393*2 

|  r j 

SVSltJJUSVSlt  JJ-1 JPSV0NEG1  IJJ)*EXPI-SVENG1  IJJl/Xn) 

sc 

131 

393*2 

1  H 

LSI 5 1  ENO  UNTIL  >  NN1I 

sc 

131 

396*1 

i 

SVS2ltHSV0NEG2lU*EXPl-SVENG2lU/KT]J 

sc 

131 

401  *  1 

I  n 

JJ»2I 

sc 

131 

404*3 

1 1 1 

00  BEGIN 

sc 

131 

405*2 

i 

SVS2I JJ]»SVS?t JJ«l]*SV0MEG2:JJ]*EXBt*SVENG2t JJ]/KTI> 

sc 

131 

405*2 

i  f} 

L715I  ENO  UNTIL  JJ*JJ*1  >  NW2I 

sc 

131 

4101  1 

l u 

SVS3I1  )PSV0NrG3IU»EXPt*sVENG3r  U/KT1) 

sc 

131 

41311 

I  n 

JJ»2) 

sc 

131 

416*3 

1  )  | 

00  BEGIN 

sc 

131 

417*2 

1  u 

1 

SVS3tJJ]»SVS3tJJ-n*SV0MEG3tJJI*EXPfSVENG3tJJ1/KT  J) 

sc 

131 

41712 

1  n 

L81SI  ENO  UNTIL  »  NN3) 

sc 

131 

4  ?  ?  1  1 

1  u 

SVS*m*SVONEG»tU*EXPt*SVENG»tn/KTl) 

sc 

131 

4?S  t  1 

1 

JJ»2I 

sc 

131 

4 ?6  *  3 

i  n 

00  BEGIN 

sc 

131 

4  ?0  t  2 

1  ® 

SVSSIJJHSVSSI  JJ-1  ]*SV0NEGSIJJ)*EXP{*SVENG41JJ]/KT1) 

sc 

131 

4?9J? 

i 

1  n 

L9tS»  ENO  UNTIL  >  NN«) 

sc 

1  31 

434  *1 

! 

sc 

131 

4  371  1 

i 

BEGIN 

sc 

131 

4371  1 

COMMENT  SECONU  majOH  PORT  ION  OF  PROGRAM) 

sc 

131 

4  37*1 

FORMAT  F3("P4RT1TI0N  FUNCTIONS"/ 

sc 

131 

437!  1 

START 

OF 

SEGMENT 

>  #  *  •  # 

•  •  •• 

0014 

START 

OF 

SEGMENT  *1 

•  •  •  * 

0015 

"a0*"»E16.8»X8,"Ql«",t16.8»X5."y2*"»F16.8.X5/ 

sc 

1  5 1 

OIC 

"83»"-E16.B»X5»"94*"»E16.8/). 

sc 

15  * 

0!  0 

F0RB1SECTC"NIIH8Er  OF  BISECTING  STEPS  TAKEN*". 16). 

sc 

151 

0!  0 

F«T"0ENS1TU:s  in  inverse  CM3"/ 

SC 

151 

ni  o 

"N0*"»El6.e»X5,"Ni»",£li,8»X5.''N2*".E16,«.X5/ 

sc 

151 

0 !  0 

"N3""»E16.S»X5,"N4*"»E16.8»X5»/ 

sc 

151 

010 

"NELEC*"»E16.B,X5»"NTUTL«"»EI4.8/>> 

sc 

151 

0!  0 

F6("I0N1zaT10N  potential  LONERINGS  IN  INVFRAF  CM  rno*/ 

sC 

151 

0  !  0 

"ATUM*".E18.8»x3."I0Nl*"»E16i8.x3."I0N2*".El6.S»X3. 

sc 

151 

0 !  0 

"lON3*"»Et6.B/>» 

sc 

151 

01  0 

FTP("TEMP«",16,"  OFGREES  K.",X5. "PRESSURE*". E16. 8."  ATMOSPHERES 

">  J 

sc 

151 

010 

LIST  LIST3C JSUMA, JSUH1.JSUM2. JSUH3.JSUM4  )) 

sc 

151 

010 

0015 

IS 

0102  LONG. 

NEXT 

‘  SEG  0014 

LIST  LIST«( JATOH, JCHH1 . JCHR2. JCHR3. JCHH4, JELEC. JTOTL  >) 

sc 

141 

1012 

LIST  IIST6C  JV1 .JV2.UV3.JV4  11 

sc 

14! 

2312 

BEGIN 

sc 

14! 

32*2 

LABEL  LIO.  L81.LS2.LSS.LS8.LS9.L60.L68.LTl.LT2.LT4.L81.L84. 

sc 

if 

3212 

START 

OF 

SEGMENT  * 

***«« 

>*•*< 

*  0016 

L8T.L90.L10l.L118) 

sc 

16! 

010 

TIMEIT(GEID) 

sc 

16! 

010 

NRITE(GEIL)) 

sc 

16! 

no 

FOR  11*1  STEP  1  UNTIL  NP  00  BEGIN 

sc 

16! 

31  3 

HRITE(GEILCPAGEJl) 

sc 

16! 

510 

JPaPCII )! 

sc 

16! 

1 !  3 

JELECmNELEC  [  ID) 

sc 

16! 

6 1  3 

HRITECGEIL.FORBISECT.NBSTEPS)) 

sc 

16! 

9 1  3 

JTOTL* JP*6.Ti2»18/(JB0LTZ*JT)) 

sc 

16! 

1711 

JP'NlcSVENGAtNN J/kT) 

sc 

161 

1912 

JP0N2*SVENGltNNl  J/KT*JPOhD 

sc 

16! 

2110 

JP0N3*SVEN02tNN2 J/KT*JP0h2) 

sc 

161 

2310 

JP0N4»SVENG3f NH3 J/KT*JP0N3) 

sc 

16! 

2510 

JNO*NN) 

sc 

161 

2710 

JN 1 *NN 1  ) 

sc 

161 

27!  3 

JN2*NM2) 

sc 

16! 

2fl  I  2 

JN3»NN3) 

sc 

16! 

2911 

JN4*NM4 ) 

sc 

16! 

3010 

L10I 

sc 

16! 

3013 

J$I)MA*SVS  CJN81) 

sc 

16! 

3H0 

JSUH1*SVS1IJN13) 

sc 

16! 

3210 

JSUM2*SVS2CJN21) 

sc 

161 

3.310 

JSUM3*SVS3EJN31) 

sc 

16! 

34  10 

JSUH4*SVSA[ JN41) 

sc 

16! 

3510 

i-l 


JC1*JC*(  JIM.3>«EXP{-JP0N1>kCJSUMI/JSUM»>» 

JC?»JC»t  jT*1.5)*FxP(.jP(]K2*jP0Hi)KtJSUM2/JSUMl)» 

COMMENT 

IF  C599S>JT)  then  GC  TO  L5U 

JCUJCxC  JT*1.5)*EXP(-JP0h3  +  JPUN?)k(Jsomj/jSum2)I 

SO  TO  L ■>?» 

L51I  JC3»OI 

L5H 

COMMENT 

IF  (899S7JT)  THEN  On  TO  L5S» 

JC«*JC>>(  JT*1.5)»EXP(-JP0N«  +  JPUN3)KCJSIIH<I/JSIIH3)I 

on  TO  LS*I 
L55  *  JC«*OI 

l-5»l  IP  C1P995SJT)  THEN  80  TO  L59» 

JR»1»-1*>J 
JRR*1 I 
GO  TO  U0» 

L59I  JR*l»-35| 

JRR»1R-2o> 

L60I 

J»3»3*( JC2*(JC1KJR))-JC1K(JT0TL»JR)I 

JCJR<JC8*C JC1* JR) )>•*»{ jTOTL«(JC»»{jei*JR>))| 


I 


i 


t  ; 

Lj 


c 

» 

£ 


r  ? 

f  I 

3  '? 


I  ? 

\  \ 

sr  a 


n 

Li 


J»5»5*tJC»«JNR)»(je3M(JC?K(JCTKjR))).3*(JT0TLMJRRJMCJC3*CJC2M(JCl*JR)JJ, 

jR(S*»*k(jT0TLmjRR)m(jcRM(jC3m(jC2m(jcimjR))))| 

LAG  I 


PI  SECT! JFLECa 100 ,5R20»NBSTEP S* JROL» )  I 

.I»»»*JC14C2»JC1*(  JC2/JELEC))*(3*JCl>cjC2K(JC3/(jELrC»2)))) 

JRRR*»k(jC1/JELEC)k(JC2/JELEC)k(JC3/JELEC)kJC«I 

J»TOM*( JELEC»2)/( j*»»*JBRS) j 

JCMRi»jcikJ*tom/jELEC» 

IE  CJCHRjil)  THEN  GO  TO  L81» 

JCMR1*0» 

181  *  JChr?*Jc2kJchR1/JELEC» 

IF  (JCMR221)  THEN  GO  TO  lB«I 
JCHR2»0I 

L8**  JCMr3»jC3*JchR2/JELECI 

IF  (JCHR321)  THEN  GO  TO  LS7I 
JCMR3»0I 

L87I  JCHR«*JC»KJCHR3/JELECI 
IF  ( JCHRa>l )  THEN  GO  TO  L«0» 
jchr«»gi 
L9GI 

JVl*2«3.9S7923S9R.5«S0RT{(3.l4lb926538/«T>«(JELEC4JCHRl4«»jcHR2+ 

9*JChR34|MJCHR4)M 
JVP*?kJU1 » 


/.  - 


SC 

16  1 

3610 

sc 

161 

411? 

sc 

161 

471? 

sc 

161 

471? 

sc 

161 

47*? 

sc 

161 

*>3*2 

sc 

161 

S  6  1  0 

sc 

161 

S6I  3 

sc 

161 

6710 

sc 

161 

57*0 

5C 

i  6  i 

vm 

sc 

16t 

63*0 

sc 

161 

6610 

sc 

16  1 

6S  *  3 

sc 

161 

67  11 

sc 

161 

6**0 

sc 

16i 

6  «  •  3 

SC 

161 

7  ?  1  0 

sc 

161 

7  ?  l  3 

sc 

161 

71*2 

sc 

161 

74  1  3 

sc 

161 

76*2 

sc 

161 

30*1 

sc 

161 

65*2 

sc 

16* 

oil  3 

sc 

16* 

071  1 

sc 

161 

OHIO 

sc 

16: 

114*0 

sc 

161 

110*3 

sc 

161 

1?4  10 

sc 

1  6  t 

1  ?6  *  1 

sc 

161 

1?H»C 

sc 

16* 

1?9I  1 

5  *• 

1M 

1  V>*0 

sc 

l  6  | 

nu  i 

sc 

1  6  I 

13  310 

sc 

16* 

nu  3 

sc 

16  1 

1  3 

sc 

16* 

137*0 

sc 

161 

1  37*  3 

sc 

161 

non 

sc 

16* 

14*10 

sc 

161 

14113 

sc 

1*1 

14?*  0 

sc 

3  6  l 

1  ft  6  {  ? 

sc 

16| 

Wl  M  1  3 

JV3»3«J9t  I 
JVRPAxJVll 

if  iFtn-JPOmxKT*  jv i  Then 

BEGIN 

TEMP* IPf i ]• Jvi I 

FIND(SVFNGA,TEMP  ,NM,JNfl)J 

JPOnl»SVENGAtJNG]/KTj 

TEMP»IPt?]*JV2l 

FTN0(SVENG1#TEMP  >N»1,JH1)J 

JP0H2»SVENaitJNl]/KT+JP0lU» 

TEHPHP13I*JV3» 

JPO»3»SVENG2tJN2 J/KT+JP0N2J 
TEMP»IP{aJ-JV4I 

FIN0(SVEnG2#T£HP  »NN?»JN2IJ 

FIND($VENG3,TEMP  .NN3.JN3JJ 

JPO»«»5VfNa3tJN3]/KT*jPOp3l 

GO  TO  LI  01 
ENOI 

MRITE(GEILtOBL]»FTP» JT» JP/T60J I 

NRITE(GEIl»F3,LIST3)J 

N»|TE(GEIL.F«,LIst«)J 

NRITE(GEIL»F6.LIST«]I 

NELCCt I I ]*JELECf 


SC 

16* 

1  SO  1  0 

sc 

161 

151  1  1 

sc 

161 

1  S?l? 

sc 

161 

1 5  n  !  2 

sc 

161 

1  SS  l  0 

sc 

161 

1561? 

sc 

161 

15612 

sc 

161 

16010 

sc 

161 

161  12 

sc 

161 

16312 

sc 

161 

16512 

sc 

161 

16710 

sc 

161 

16910 

sc 

161 

17012 

sc 

161 

1  7?  1 2 

sc 

161 

17412 

sc 

161 

17612 

sc 

161 

170  10 

SC  161  1/910 
SC  161  18911 
SC  161  19212 
SC  161  19513 
SC  161  19910 


BEGIN 

CONHENT  GEIL. ABSORPTION  COEFFICIENT  FOR  THE  XENON  ATOM, SCHLECHT, 5T6I 
REAL  LITTLECOEF.BIGCOEFI 

REAL  V6P,VTP,V50,V6U. 

TEHP, 

GP.G0»V1hVG» I, 

COEF.Cl.  H,K, 

0NU2, 

EV1HV0,EV6P*EV60,EVFP,EV50. 

H0K.C12, 

E6P,E60,EFP*E50, 

Nil  *INU> 

KO.KOPRIME, 

»GS1,AGS2,A6p,A60,ATp, A50, ACOEFl 
OEFINE  T»JT*,NO»JATOm#,Oo»JSUMA* ,B1»JSUM II j 
FORHAT  INPUT("T«»,I«,»  OEGREES  K»,X6.»N0>",E10,3,X6, 


"G0»»,E10.3»X6."Ql«",E10.3), 
Ot'TPUTf  6E15, 31, 

T ITLEOUTt / 


NU 


SC  161  20011 
SC  161  20011 
SC  16!  20011 
START  DF  SEGMENT  •**.*.*...  001T 


START  OF  SEGMENT 


sc 

in 

mo 

sc 

171 

010 

sc 

171 

010 

sc 

171 

010 

sc 

171 

010 

sc 

in 

010 

sc 

171 

010 

sc 

171 

010 

sc 

171 

010 

sc 

171 

010 

sc 

1  7  1 

010 

sc 

in 

mo 

sc 

171 

0*0 

k  * 

0018 

sc 

1  6  1 

010 

sc 

1B1 

010 

sc 

IB! 

010 

sc 

101 

0  1  0 

sc 

18! 

010 

kappaprime 


Lamboa  « 
EMISSION  CHEF" 


/ 

SC 

IHI 

n  i  o 

"  CYCLES/SEC  MICRONS  " 

SC 

m 

010 

"  INVERSE  CM  XATTS/CMJ  STER  SEC-I" 

SC 

181 

n  io 

/ 

SC 

lfll 

010 

)I 

sc 

181 

010 

0018 

IS  0049  LONG. 

NEX1 

SEG 

0017 

REAL  PROCEDURE  LAG  (  X  »  XO  ,  OX  ,  Y  ,  N  )  1 

LAG 

1 

SC 

171 

010 

COMMENT  OROER  3  LAGRANGE  INTERPOLATION.  EOljAL  INDEPENDENT  STEP. 

LAG 

2 

sc 

1  7  1 

010 

SINGLE  OFPENnENT, independent  variable. EXTRAPOLATE  IF  NOT  XOSXSXOpNxox, 

LAG 

3 

sc 

171 

010 

X  -  OESIREO  INOEPENOENT  VALUE 

LAG 

4 

sc 

171 

n  io 

XO  *  FIRST  INDEPENDENT  VaLUE  OF  Y  TABLE  (FOR  Y (0 J  J 

LAG 

5 

sc 

171 

010 

OX  -  table  STEP  FOR  INOEPENOENT 

I.AG 

#, 

sc 

171 

010 

Y  •  NAME. DEPENDENT  VARIABLE  VALUE  TABLE  (MUST  BE  SINGLE  SUBSCRIPT) 

lAG 

7 

sc 

171 

010 

N  -  MAX  INOEX  OF  Y  TABLE  (  i  A  )  ) 

LAG 

A 

sc 

171 

010 

VALUE  X  ,  XO  .  OX  »  N  1 

LAG 

9 

sc 

171 

010 

REAL  X  »  XO  ,  OX  1  INTEGEH  N  1  ARRAY  YCO)  1 

LAG 

10 

sc 

171 

010 

BEGIN 

LAG 

11 

sc 

171 

010 

INTEGER  I  )  REAL  S  ) 

LAG 

I? 

sc 

171 

mo 

START 

OF  SEGMENT  •  ■ 

'*♦** 

0019 

IF  (I  *  ENTIERKX  *  XO)/0X  -  I>)  <  0  THEN  I  ♦  0  ELSE 

LAG 

13 

sc 

191 

010 

IF  I  ♦  3  >  N  THEN  I  »  N  -  3  1 

LA7 

14 

sc 

191 

510 

S  *  (X  -  XOJ/OX  •  I  1 

LAG 

IS 

sc 

191 

1010 

LAG  ♦  ( ( Y ( I  *  3)  *  S  -  Y 1 1 1  x  (S  -  3))  X  ((S  •  3)  x  S  ♦  2)/3 

LAG 

18 

sc 

191 

1211 

♦  (YU  ♦  I)  X  (S  *  2)  •  Ytl  ♦  ?)  X  (S  -  n>  x  (S  «  3) 

*  S>/2 

LAG 

17 

sc 

191 

1712 

END  LAG  I 

LAG 

18 

sc 

191 

2AI0 

0019 

IS 

0028 

LONG* 

NEXT 

SEG 

0017 

LABEL  START. EXIT) 

SC 

171 

010 

FILL  Xt(*J  WITH  1.  ,  6, .5, I, 2.78,2.8.3. 3.1,  3, 

SC 

171 

010 

START 

OF 

SEGMENT  *’ 

'♦*** 

0020 

2. 9,?. 8,?, 8, 2, 4, 2,1, 1 .8,  1.8, 1.4, 1 .2S, 

SC 

171 

113 

1.2,1.1,11 

sc 

171 

1 1  3 

0020 

IS 

o 

o 

LONG* 

NEXT 

SEG 

0017 

H»8.825l7»-271 

SC 

171 

113 

K»I ,380448*181 

sc 

171 

212 

HOK*H/K I 

sc 

171 

111 

V6P»2.3S536PI5I 

sc 

171 

<11  2 

V7P42.6SA19P15I 

sc 

171 

51  1 

VS0*2.43618p15I 

sc 

171 

« »  0 

V60»2. 87309*151 

sc 

171 

M  3 

VIMVG*2.7252*I5! 

sc 

17* 

7*2 

evimvg»mok*vimvgi 

sc 

17* 

"n 

EV6P»M0KxV6P| 

sc 

171 

912 

EV80»H0KxV801 

sc 

171 

1013 

EV7P»M0KxV7P) 

sc 

171 

1210 

EV50*H0KxV50i 

sc 

171 

1  31  1 

GP»24I 

jC 

171 

U  12 

1 

SC 

171 

ISM 

ACOEF  M. 20423x9*131 

sc 

171 

1610 

AGS2»2.Sg*-32J 

sc 

*7i 

1711 

AGS1»9*m7*AGS2x2,«3*15J 

sc 

171 

1 A 1  C 

!  | 

A4P»ACnEF*.072«GPJ 

sc 

171 

19*3 

tl 

A40»ACnEF*.025*G0J 

sc 

171 

21 1? 

A7P»ACr)F.F*.0?l*GPI 

sc 

171 

"  £ 

A50*AC0EFx,074xG0J 

sc 

171 

2510 

t  t 

C 1  ♦aR9P?(|I 

sc 

171 

2413 

1 
-  i 

£4 

C12*Cl*2l 

sc 

171 

2712 

STARTl 

sc 

171 

2813 

NRITECGEILIOBL  3)3 

sc 

171 

29  *  0 

NR1 TEC GElLtDRLl# INPUT, T. NO. QO.Qlll 

sc 

171 

3M3 

NRlTECGEIL  «TITL£OUT)l 

sc 

171 

601  1 

L1TTLECOEF*C12*Qi*TI 

sc 

171 

4  3  M 

E 

BIGCOEF»L!TTLECOEF*EXPC£VtMVG/T)l 

sc 

171 

6510 

•  1 

E4P*A4P*£XP<-EV4P/T)I 

sc 

171 

6712 

I 

E4D»A40*EXP(«EV40/T)> 

sc 

171 

7010 

I 

i  1 

it-Ji 

E7P*A7P*EXP(-EV7P/T)I 

sc 

171 

7212 

E50*A50*EXP<-EV50/T)I 

sc 

171 

75»0 

*  | 

FOR  1LAHROAM  STEP  1  UNTIL  NLAMBOA  00  BEGIN 

sc 

171 

7712 

4  i 

NU»3*1«/ALAMB0AC  1I.AMB0*]) 

sc 

171 

7910 

1NU*NU**-14J 

sc 

171 

8012 

I 

IF  NU«2P1A  THEN  C0EF*L1TTLEC0EFxEXP(H0Kk(NU*2.935*15)/T>  ELSE 

sc 

171 

8113 

coef*bigcoefj 

sc 

171 

861  1 

0NU2M.0/NU  *21 

sc 

171 

9113 

KO  »N0/00  *  (COEF/NU  *3  * 

sc 

17t 

9312 

(IF  INU220  THEN  1  ELSE  IF  1NU22  THEN  XltlNUJ  ELSE  LAGC INU.O, 1 » X 1. AO ) ) » 

sc 

171 

9610 

<  TF  NU  22.93*15  THEN  AGS1-AGS2*NU  ELSE  0)* 

sc 

171 

10212 

(  IF  NU  25,7944*14  THEN  E4P«0NU2  ELSE 

o  >♦ 

sc 

171 

1D4U 

(  IF  NU  22,4193*14  THEN  E4040NU2  ELSE 

03* 

sc 

171 

10911 

C  IF  NU  22,8083*14  THEN  E7PX0NU2  ELSE 

03  + 

sc 

171 

1 1 2  M 

<  IF  NU  24.9884*14  THEN  E50*0NU2  ELSE 

0)>l 

sc 

171 

1  IS  M 

K0PRIHE»k0*(1-EXP(-H*NU/(X*T)))1 

sc 

171 

11910 

t  1 

KARRATt ILANB0A)»K0PRIHEJ 

sc 

171 

12310 

NR1TE(GEIL*0UTPUT.NU.3*14/NU»K0PR1NE.IF  TEMP»H0K*NU/T»15  THEN 

sc 

171 

12413 

r  j 

EXP<LN  (K0PRIMEx?xHxNU*3)*44,34715*TEHP)  ELSE 

sc 

171 

1MI  1 

X0PR1HE*2*H*NU»3/C9*27» 

sc 

171 

15010 

(EXP(H0K*NU/T)-1)J )l 

sc 

171 

15310 

ENO  OF  INUJ 

sc 

171 

1421 1 

| 

MR1TE(PA$SKAPPA#NLAMB0A#KARRAY{* ] ) | 

sc 

171 

14412 

EX1TIEN0J 

sc 

171 

1671  ? 

i 

i  i 

■w 

0017 

IS  0149  LONG,  NEXT 

SEG 

0016 

NR1TE(PAsSKAPPA.»,JP)J 

sc 

1 A  1 

201  10 

I 

ENO  OF  JP  LUOPl 

sc 

161 

208*1 

J 

ENO  ENO I 

sc 

141 

21012 

b-/2 

1 

WHITCf PASSXAPPA#*, JELEC* JTOTL  »* 

ENO  or  JT  LOOP) 
r.fj  to  rxilt 

eno  or  dynamic  arrays! 

enoi 

EXIT! 

MRI TEC  GEIL )! 

TIMEIT  C  PRINT  11 
ENO  OF  ORELL1SHAK) 

ENO. 

EXP  IS  SEGMENT  NIIMRER  0021,  PRT  ADDRESS  tS  02 77 


LN 

0022 

0307 

SORT 

0023 

0276 

PUTPUT(M) 

0024 

0041 

BLOCK  CONTROL 

0025 

0005 

I NPUTOO 

0026 

0235 

X  TO  THE  I 

0027 

0310 

0016  IS  0211  LONG. 
0014  IS  0034  LONG. 


0013  IS  0456  LONG. 


0010  IS  0051  LONG. 


NEXT  SHi  0014 
NEXT  SLG  0013 
SC  131  43010 
SC  131  4 4  T  I  1 
SC  131  4  S  0 1 ? 
SC  131  4S2I3 
NEXT  SLG  onic 
SC  101  onto 
NEXT  SEG  0004 


SC  41  610 

SC  41  610 

SC  4  1  ft  1 3 

SC  41  913 

0004  IS  001.3  LONG.  NEXT  SEG  0002 

SC  ?l  1  ft  1 0 

0002  IS  0071  LONG.  NEXT  SEG  onoi 


GO  TO 

SOLVER 

0028 

ALGOL 

MRITE 

0029 

ALGOL 

RE  AO 

0030 

ALGOL 

select 

0031 

NUMBER  or  ERRORS  oetecteo  ■  000 


0234 

0014 

0015 

0016 

LAST  e*RO  KITH  ERROR  MAS  SEG  t 
DISK  STORAGE  REG, *01733  NDROS!  NO.  SEGS..0032 

I/O  TIME  ■  52.4ft  SECONDS 


PRT  SIZE*0?54)  TOTAL  SEGMENT  SIZE*01431  MOROSJ 
ESTIMATEO  CORE  STORAGE  REQUIREMENT  »  06699  NOROS. 

15I0OI29  MONOAT.  OCTOBER  25.  i96ft  PROCESSOR  TIME  ■  22,75  SEGONOS 


6-// 


151  00  1  3  3  «C!N0»r,  OCTOBER  ?5,  1945 

JT  I.. ST  INC.  J?M«x.  jB0LTZ#NH,NHt,Nn?,N*3.M.m,  JC+lPtll.  IP  1 2 J « IP l 3) . IP 1 4 ! +  NP  + FOR . . ,P f NP ] 
5000,00000  1000.00000  10000,00000  0,6950? 

700.0O000  150.00000  100,00000  2,00000 

97619, 40000  171068,40000  259089.00000  371037,00000 

1 .OOOOC 


400,00000 
*, 630006+15 

1 ,00000 


15101104 

MONO  A  Y  t 

OCTOBER 

7*>> 

1  96* 

PROCESSOR 

TIME  * 

16. KO  SECONOS 

i/n 

TIME 

*  28,47 

SECONDS 

15I0H05 

MONDAY, 

OCTOBER 

196* 

processor 

TIME  * 

19. at  :lconos 

1/0 

time 

*  28.54 

seconds 

NUMBER  OF  bisecting  steps  taken*  /•> 

TEMP*  9000  OEGREES  k.  PRESSURE*  1 ,000000004*00  atmospheres 
partition  functions 


SO*  1,000829664+00 
S3*  4,872161474+00 

01* 

04* 

A  *  37 1 06237P*00 

1 .00000000*-  *00 

02* 

6,226676784+00 

0ENS1T1ES  IN  INVERSE 
NO*  7,199304*04+17 
N3*  6,211193174+01 

CM3 

NI¬ 

NA* 

A.7766308aP*16 

O'OOOOOOOOP+OO 

N2* 

7.130426564+10 

NELEC*  4,7786951 19*16  NTOTL*  6.155033119*17 
IONIZATION  POTENTIAL  L0NER1NQS  IN  INVERSE  CM  FUR 

ATOM*  5 , 4842866 1 9*02  10N1*  1 , 09685732P+03  I0N2*  1 ,645285»B»+03  I0N3*  2,193714649*03 


9000  OEGREES  K 

N04  7. 

1994+17  80i 

t . 00 1 4*00 

NU 

lambda 

KAPPAPRiME 

emission  coef 

ctcles/sec 

MICRONS 

inverse  cm 

4ATTS/CM3  STER 

6.0004+15 

5.0004-02 

7.5499+00 

3.0524-20 

5.4554+15 

5.5004-02 

1.7714+01 

9.8659-19 

5.0004+15 

6.0004-02 

2.6174*01 

1.2669-17 

4.6154+15 

6,5004-02 

3.3349*01 

9,8794-17 

4.2864+15 

7.0004-02 

3.9484*01 

5.4339-16 

4.0004+15 

7,5004-02 

4.4814*01 

2,3009-15 

3.7504+15 

8.0004-02 

4,9464*01 

7.9374-15 

3.3334+15 

9.0004-02 

5.7234*01 

5,9494-14 

3.0004+15 

I  • C009-0 1 

6. 3444*0 1 

2.8444-1 3 

2.8574+15 

1 .0504-01 

1.3484-04 

1.1184*18 

2,0004+15 

1.5004-01 

2.7599-04 

7.5874-17 

1.5004+15 

2.0004-01 

4,9669-04 

6.2904-16 

t.?004+i5 

2.5004-01 

7.9084-04 

3.3524-15 

1.0004+15 

3.0004-01 

1.1559-03 

8. 2549-15 

8,5714+14 

3.5009*01 

1 .5829-03 

1,5349-14 

7.5009+14 

A, 0009-01 

2,0829-03 

2,4144-14 

6.6874+14 

4.5004-01 

2.6369-03 

3,3834-14 

6.0004+14 

5.0009-01 

3.2369-03 

4.3754-14 

5.4559+14 

5.5004-0] 

2.368'1-03 

3,2644-14 

5.0004+14 

6.000*-01 

?. 8164-03 

3.8714-14 

4.61 54+14 

6.5004-01 

9 .7689-04 

1.3194-14 

4.2864+14 

7.0004-01 

l .014*-03 

1.3314-14 

15 


4,0004+14 

3.7500*14 

3.5299+14 

3.333**14 

3.1564+14 

3.0004*14 

0.857**14 

2 • 72  7P  + 1  a 

2.609*, 14 

2,5004+14 

7.400**14 

7.308**14 

?.???**14 

7.143**14 

?.069**14 

2.0004*14 

1.935**14 

1,875**14 

1 .8184*14 

1.7654*14 

1.714**14 

1.6674*14 

1 .6774*14 

1.5794*14 

I .53B**14 

1 .5004*14 

6.000P+1 3 

3.000**13 

1.500**13 

6, 0004*17 

3.0o04*i? 

•01108  M0N04Y, 


7 ,5004*01 
8.000**01 
8.5004-01 
9.000**01 
9,5004*01 
1.0004*00 
1.0504*00 
1 .1004*00 
1.1504*00 
1.200**00 
1.2504*00 
1.3004*00 
1.3404*00 
l.*00**00 
1.4504*00 
1.5004*00 
1.5504*00 
1.600**00 
1.650**00 
1.7004+C0 
1.750**00 
1 .800**00 
1.850**00 
1.900**00 
1 .950**00 
2.0C0«*00 
5.000**00 
1.0004*01 
2,0004*01 
5,0004*01 
1.0004*02 
OCTOBER  Hi  ;$65 


1 .1*44*03 
1 , 3894*03 
1 .600**03 
1.137**03 
1.275**03 
1 .42i*-03 
1.575**03 
l,«47*-03 
1 ,0«1*-P3 
1.159**03 
8.427»*04 
7,084**0* 
7. 780**04 
8.51?*-0* 
9.279**04 
1 ,008**03 
9.844**04 
1.0179-03 
1.055**03 
1.098**03 
1.145**03 
1  a 1974*03 
1.257**03 
l.i:i*-03 
1.374**03 
1  .4  30**03 
1 . 03o**o? 
4.473*-02 
1.849**01 
1 • 1 77*400 
4.734*400 
PROCESSOR 


L. 512*. 14 

1 , 6884*14 
1 ,8604*14 
1.262**14 
1.3484-1* 
1.4304-14 
1.5074-1* 

1 ,3174-14 

9.010**15 

«.S47»-1S 

5,0359-15 

5, 289*. 15 

S.536*-15 

5. 775*. 15 

6, 007*. 15 

8,232**15 

5.815*-15 

5, 7*7*. 15 

5.706**15 

5,686**15 

5, 68*4-15 

S.89i*-15 

5.7204-15 

5. 753*- 15 

5,794**15 

5.8419-15 

8.7839*15 

1.0759-14 

1.1039-1* 

1.1519-1* 

1.1679-1* 

T THE  ■  21,55  SECONOS 


I/O  TIME  ■  29,52  SEC0N05 


TEM*SR.2«nS,nf?LIS?  JTEPS  T*«N'  75 

10000  OE  .REES  K,  PRESSURE*  1 .000000009  +  00 


PARTITION  FUNCTIONS 
00*  1 .0028r6804*00 
®J*  5.120920004,00 


01*  4.439197899,00 

04*  1.000000004,00 


92* 


4TM0SRHERES 

6.47496687R+00 


OENSITIES  IN  INVERSE  CM3 
NO*  5. 356691 30R+1 7 
H3«  1.285052954,0*  | 

NELEC*  9.914245269,16 


9.914034134*16 
0.300000009+00 
NTOTL*  7,339529809+ 


N2* 

17 


1.055829689+12 


2.2*8236959+03 


I0N3«  2,997649279+03 


T«  10000  OEGREES  K  NO*  5,3579+17 


00.  1. 0039+00  01.  4.4369+00 


NU 

CYCLES/SEC 

6.0009,15 

5.4559.15 
5.0009,15 

4.6159*15 

4.2869.15 

4.0009+15 

3.750»+15 

3,333»+15 

3.0004+15 

2.8574+15 

2.0004+15 

1  .500»  +  15 

1.2004+15 

1 .0004+15 

8.5714+1* 

7.5004*14 

6,667*+14 

6.000*+1 4 

5.455*+14 

5.0004*14 

4.615»+1* 

4 • 264**14 


lambda 

MICRONS 

5.000R-02 
5.500R-02 
6.000R-02 
6.500R-02 
7.000R-02 
7.500*-02 
8.000R-02 
9,0004*02 
1.000R-01 
1.050**01 
1.5004*01 
2.000**01 
2.5004-01 
3.0004-01 
3.5004*01 
«.000*-01 
4.500**01 
5.0004*01 
5.500**01 
6.0004-01 
6.500*-0l 
7 .000**01 


KAPPAPRIME 
INVERSE  cm 


emission  coef 
N4TTS7CM3  STER  SEC-1 


5.6014+00 

1.315*+01 

1,94*4+01 

2.4764+01 

2.937*+01 

3.3274+01 

3.67  3*  +  01 

4 , 249»+0 1 

4.7104+01 

3,6454*04 

7.472**04 

1.350**03 

2.1614*03 

3.165**03 

4  •  3424*03 

5,722*-03 

7.240**03 

8.876**03 

6.7454-03 

8.022**03 

3.244**03 

3.341**03 


5.556*-16 

1.3434*17 

1.3554*16 

8, 5964*16 

3, 9664*15 

1. 4424*14 

4,353**14 

2.613**13 

1,0469*12 

1 .383**1? 

5.9699-16 

5.0159*15 

1.7399*14 

3.8704*14 

6.890**14 

9,969**14 

1.3  34*13 

1,679**13 

1.266C-13 

,,474**13 

5. 7534*14 

5.677**14 


L-/J 


4.000*414 

7.500**01 

3.929*-03 

3.750/414 

6.0006-01 

4.569*-03 

3.529641* 

3.5006-0 1 

5.2606-03 

3.3336414 

9.000**01 

3.630*-03 

3.1566414 

9.5006-01 

4 , 069»-0  3 

3.000*41* 

1.000*400 

4.533**03 

2,8576.14 

1,050*400 

5,022*-03 

2.727*414 

1.1006400 

4.6V5*-03 

2.609641* 

1.1506400 

3.545*-03 

2.500*41* 

1.200*400 

3*9426-03 

2.400641* 

1.250*400 

2* 1 606-0  3 

2.306641* 

1.300*400 

2.40l*-03 

2.222*41* 

1.350*400 

2 . 6  34*  -0  3 

2.143*414 

1.400*400 

2.677**03 

2.069*414 

1.450*400 

3.133**03 

2.000*41* 

1 .500*400 

3.3V9*-03 

1 ,935*41* 

1.550*400 

3.3*4**l>3 

1.675*414 

1.600*400 

3.44«*-03 

1.816*414 

1.650*400 

3.600*-03 

1.765*414 

1.700*400 

3.753**03 

1.71**41* 

1.750*400 

3.921**03 

1.667*414 

1.600*400 

4. 104**03 

1.622*414 

1.650*400 

4,3006-03 

1.579*41* 

1.900*400 

4.5106-03 

1.536*41* 

1.9506400 

4.732**03 

1.500*41* 

2.000*400 

4.96  7**0  3 

6,000*413 

5.0006*00 

3.6666*02 

3.000*413 

1.000*401 

1.6006-01 

1 .500*413 

2.000*401 

6,643**01 

6.000*412 

5.000*401 

4.236*400 

3.000*412 

1.000*402  - 

1.706*401 

15101  no  MONOAT#  OCTOBER  25#  196;  PROCESSOR 


6.1626-14 
7. 02/6-14 
7.6666-14 
S. 0066-14 
S. 3116-14 
5.347**14 
5,6656-14 
5. 1896-14 

1. M16-1, 

3.9096-14 

2.0116-14 

2.1*46-14 

2.2336-1* 

2 • 3206-1* 

2,  *0*6-1* 

2.4856-1* 

2.3316-1* 

2.3036-1* 

2.26T6-1 4 
2.2T96-1* 

2,2766-1* 

2.2836-1* 

2.2926-1* 

2,3066-1* 

2.3226-1* 

2,3«16.|* 

3,5126- 1 « 

4.1076-1* 

4,4226-1* 

4,6136-1* 

4.6776-1* 

TIME  ■  22,93  SECONOS  1/0  TIME  »  JO. 27  SEC0N01 


LABEL  0  BEIL  0  CMURCH00065298T  EXECUTE  OOUBLE/QE IL 


R0636E0 


Symbol  Table  for  DICSLAB  (c)  and  DICKCYL  (d) 

ZBAR  =  Z  =  mean  Ionic  charge 

DELTE [ i ]  =  6  for  the  ith  given  value  of  Z.  A  correction  factor  to  the 
€ 

electrical  conductivity  a. 

DELTK[i  j  =  S_  for  the  ith  given  value  of  2".  A  correction  factor  to  the 
thermal  conductivity. 

Z[i]  =  the  ith  integral  value  of  Z,  at  which  5  and  6  are  tabulated 

e  Tk 

KAPPA  [t,\]  -  x>  for  temperature  t  and  wavelength  \ 

D  k  tnickness  of  plasma 

NT  =  number  of  temperatures  to  be  solved  for  (they  must  be  in  equal  increments) 
NLAMBDA  =  number  of  wavelengths  to  be  solved  for 
P  =  pressure 

IKU[J]  =  input  as  jth  wavelength,  changed  within  program  to  jth  energy  hV 

ET  =  lowest  temperature  desired 

DT  =  temperature  step  size 

ET  =■-  maximum  temperature  desired 

T  -  current  temperature 

THETA  =  temperature  in  eV 

KAPPAPRIME[j  ]  **  K 1  at  jth  frequency  and  current  temperature 

NE  =  electron  density 

NTpTL  e  total  particle  density 

N  =  heavy  particle  density 

M  =  average  number  of  electrons  per  heavy  particle 
SIGMA  =  electrical  conductivity 
KK  sb.  thermal  conductivity 
TAU  *=  K'D 

00  _ 
r  -tu 

El  =  approximation  to  exponential  integral  /  - -  du 

J 1  \1 

FNU[j]  -  I‘v(j)  =  spectral  radiant  emittance  corresponding  to  jth  given  energy 
hV(j) 


■.•jirnMsiiiinHantitmtiHHHmiHiiilllHtlNh'mmmNlllilHttimitimniHtMHiHHmilitiwimiBnntiHnnnmwHHtHnnniuHmiK 


BNU[j]  =  the  Planek  function  for  the  .1th  given  energy 

FNUDNU  •■=  radiant  emittance  between  energies  bounding  optically  thick  or  thin 
regions  (t  >  3  or  t  <  3  respectively) 

SUM  *  total  radiant  emittance  = 

EXPON  =  1  -  e-*'D 

Note:  The  electric  field,  E,  and  current  density,  J,  are  calculated  within 
the  write  statement  following  the  printout  of  SUM.  The  quantities 
hV,  x>  K' >  x>  1  -  e"T >  Bv,  the  spectral  radiance  Iv,  and  Fv  are 
printed  out  in  the  final  write  statement,  and  \,  t,  and  Iv  are 
calculated  there. 

Procedure  CHOP  prints  out FydV  where  and  V,  are  the  bounds  or  n 

optically  thick  or  thin  regioii 

Procedure  INTERP  does  a  linear  interpolation  to  find  the  value  of  6  or 

T£ 

\  corresponding  to  a  given  value  of  £. 
k 

Procedure  SIMPSON  performs  a  numerical  integration  (used  in  DICKCYL  only) 


LPHI  *a  minimum  (f>  value  at  which  integral  will  be  calculated  during  integration. 
MPHI  <=  maximum  (ft  value  at  which  integral  will  be  calculated  during  integration. 
LENGTH  =  length  of  ray  from  point  Ri  to  cylinder  wall  in  PHI  direction 
N  =  maximum  number  of  intervals  into  which  ray  may  be  divided  (input). 

ND3  a  actual  number  of  intervals  into  which  a  particular  ray  is  divided. 

DS  a  step  size  along  a  particular  ray. 

APPR0XDS  a  approximate  step  size  (input) 


m  "  Snds",n)  where  NDS  is  an  integer  BUCh  that  NDS  -  ifljfcDs  >  NDS-1' 

S  a  point  along  ray  at  which  integrand  is  numerically  evaluated. 


LS  =  minimum  value  of  S  along  a  particular  ray. 


MS  =  maximum  value  of  S  along  a  particular  ray. 

RSMXY  a  radial  distance  from  axis  of  cylinder  to  point  S. 
IM  a  temperature  at  the  radial  distance  RSMXY. 


KIM  a  interpolated  value  of  KAPPA  at  I LAMBDA th  wavelength  and  temperature  TM. 
IBB  a  Planck  function  a  amount  of  radiation  emitted  by  a  black  body  as  a 
function  of  frequency  and  temperature. 

YMT  a  value  of  the  integrand  (without  multiplier  DLAMBDA  [ILAMBDA ]  x 
DS  x  C<fs(p)  x  DPHI  x  (-4)). 

SUMF  a  total  flux  at  point  R^  (output). 


illlliUKiilililll  ill  I IM  I 


u 

IT  1 1 1 1 22  MONDAY.  QCTH8E9  25,  j 965  <RL  ALGOL  VERSION  Of  B/1/J5 

COmwENT  INPUT  P  AMD  T  USES  OICKS  PAPPAS  AnO  ME  AMO  NT  IN  MONO 

T, 

SO 

11 

Oin 

rs 

plane  parallel  slabi 

SC 

11 

CIO 

i-  ■? 

OESI'I 

$r. 

1 1 

n  |0 

n 

COMMENT  OEIL.POR  CMURCM^TB.rOAJT.SlNPLlPIEO  PROBLEMI 

sc 

?\ 

010 

n 

PILE  IN  »ASS<APP»  OISK  SERIAL  <2.60.1200)1 

so 

?l 

nto 

PILE  IN  REA3ER<2. 10 )l  PILE  OUT  OElL  6(2,15)3 

sc 

?l 

312 

COMMENT  OABTImE 

/ 

SL 

21 

<012 

TO  OBTAIN  LISTIN')  MERGE  IN  HlANm  CARO  PITH  SEQUENCE  NUMBER 

000000301 

5 

Sl 

21 

♦  *12 

99999999 

sc 

21 

1210 

BEAL  A. K»N,TMCT».eOUNT,M,IN<» TEMP. E.MN.KE, TEMPI* J.CPSJ 

sc 

21 

1210 

real  0) 

sc 

21 

1210 

REAL  I M2P, LI TTLEA. ATI, X.HNUi.MNUS, MNUL» NMNU.CI.C*.C2A.e2l*C1l 

sc 

21 

«?I0 

real  i.MWMt.rwrti 

sc 

21 

1  2 1  0 

real  EX»ON.  PACT) 

sc 

21 

<2l<* 

real  El.TEST.ONU.Ol.SUM) 

sc 

21 

12IC 

real  print. St»MA, IBTMETA. DTE, OTM.KK.OENOM. TAU.PNUDNUJ 

s: 

21 

1*10 

real  IlaMBOA.TI 

sc 

21 

12IC 

REAL  NLANgOA.BT.ET.0T.NTI 

sc 

21 

1210 

REAL  IT.NE.NTOTt.PI 

sc 

21 

1210 

INTEGER  LORI 

2 1 

1  9  1  * 

REAL  ZBAR.TXTNJ 

sc 

21 

1210 

- . . ----- 

.... 

--  . 

INTEGER  NOTMET A.NR. JTNETAp JNl 

sc 

21 

.210 

ARRAY  ATMETA.ANtOISOll 

sc 

2) 

1213 

i _ i 

array  OEltC.OELTK.ZCOiSII 

s: 

21 

1  fttfi 

ARRAY  MNU(OlAeO)l 

sc 

21 

611 

ARRAY  ItOtBl.OItetBJI 

sc 

21 

•«I0 

l— — r 

ARRAY  KAP*4;oi23, 1199)3 

sc 

2! 

21  12 

n 

PORNAT  OEBU«(SCIO.I)l 

sc 

2l 

2312 

1  1 

I..-J 

START 

OP 

0004 

OOOfi 

IS 

0004  LONG, 

NEXT 

SFG 

0302 

PORNAT  SN(  PPRON  NU»R,P|. J.  ■  TO  NU«»,rr.l»*  TME  VALUE  0?  THE 

INTEGRAL 

so 

21 

2312 

U 

Q 

OP  PNU  IS".E10.I.P  W4TT5/C«2*.XS«A6)» 

sc 

Sl 

’312 

SI«m*R(*LN  LaPBOA  RP.E11.1/ 

sc 

Si 

9312 

"ELECTRICAL  CONOUCTIVITY  SIGMA.", Ell.!  .«  INVERSE  OMMS  INVERSE  CM"/ 

sc 

Si 

9312 

o 

"THERMAL  CONDUCTIVITY  K.",E11.3  ."  "ATTS/C“  DEGREES*). 

sr 

Sl 

93  I  2 

y 

EJ<*ElECTRIC  riELO  E**,£ll • 3  .«  VOLTS/CM  */ 

30 

Sl 

93l  2 

"CURRENT  OEMSITT  J**»C1I,3  »"  AMR/CMI") , 

s  • 

Sl 

9312 

n 

PINAL</"RAOIANT  EMITTANCE  P*».Eli,J  ."  PATT5/CM?")| 

sc 

c  1 

9312 

n 

001S 

IS 

30T3  LONG. 

NEXT 

5F8 

0002 

PORNAT  TITLE("NAME  OP  the  GAS  I«  READ  PROM  TITLE  CARO"). 

«  * 

2 1 

93l2 

START 

op 

SEGMENT  *. 

*  *  *  * 

"006 

D 

0P<"0p«.P5,2,XS."P*",  Pp.2."  ATM"). 

sc 

6! 

9312 

n 

mRITET<"Tp".I6."  DEGREES"). 

c-/ 

sc 

» 

9117 

9E3C*;-TI0\t»PL»'iE  BARALLEL  SLAB  FOR  HOxOGE JEOUS  TEMPERATURE" 

'  ”*19312 

*  NEGLECTING  THERMAL  C0N0jCTIVITy"), 

SC  Si  p}|2 

NTNETA<"Nm",R9.0.X3,"THETAm",R5.2,"  EV"), 

SC  Si  3312 

JM{«m«, <6»"ICM]»/( tl»F13.3)>, 

SC  ui  93,2 

IHS<"ItM-I/2)«"  »F8.«>XS»"I(M+l/2)«" 

SC  si  23,2 

NIS<«N*",E10.1), 

TITlEPL=T(X10,"THETA.-.F4.2,«  EM",X7."NTCTAL.".E9.3,Xr,»N0ENSITy.»,E9.3.  SC  si  lul 

"  PARTieiES/enj"  / 

SC  Si  P) 1 2 

OtSRCCS  K,",x7,*9«*,£9,l,"  ATM*  //> 

'  se  61  9112 

"  HNU  MAVELEnSTM  k*RRA«PRImE" 

SC  Si  P3I2 

T*u  ‘*T*U>  BNU",  SC  si  2312 

*u»"Inv»  »ku»»fnu"  / 

se  SI  9312 

EV  MICRONS  1/Cm«»X23»"1.E  »  ,X14  ,"nATTS/Cm  STEP",  SC  Si  93,2 

Xlt6*NATTS/CM"  I 

SC  Si  9H2 

it 

sc  SI  2112 

Ll5TPLOTtrr.3»El2,3,6El#.3). 

se  si  ps 1 2 

MIAS! "AFTER", IS, "  ITERATIONS,  mBaR*»,E10.S»"  mMERE  M-KE*",El 0,3 ] I  SC  Si  21,2 

000*  IS  Oltt  LON*,  NEXT  l|«  0002 

DEFINE  JOO«FOR  J*0  JT£9  i  UnTIl  s  00  *,  . 

se  2>  23*2 

4M*»ra*  J4*,.*T U  1  UNTIL  *  00  *1  , 

SC  2l  21l 2 

►wciulre  chop  i  mm 

•C  II  lilt 

HRITECGElL,SN,MNUtLOH],HNJC J«l J.aIS(FNUONU),TmTn)I  ,, 

sc  2|  23 1 2 

TMN*»  IHICX"  THEN  TMTN*"  THIN  "  ELSE  TKTN*"  THICK"!  .. 


SC 

61 

?3l2 

sc 

6 1 

9312 

sc 

6  1 

5312 

sc 

U  1 

?3  1 2 

sc 

6  l 

9313 

sc 

6| 

9312 

sc 

6  ! 

93 1  2 

sc 

6  l 

9312 

sc 

69 

9112 

sc 

6  l 

9312 

sc 

6  l 

23  ■  2 

sc 

61 

9312 

sc 

6  I 

9312 

se 

6  l 

9312 

sc 

61 

2112 

sc 

6  1 

23 1 2 

se 

61 

?3|2 

se 

2  ■ 

23*2 

—  -ft 
£ 

sc 

2l 

2112 

*  £ 

sc 

tl 

lilt 

sc 

2l 

23 1  2 

sc 

2| 

1711 

J 

i&SftSmSiiig  -*Sk 


»UM*»UM*FMUONU! 

FNU0NU*OI 

LOw.JI 

eno  or  procedure  cmqfi 

PROCEDURE  InTERP(OT,OELTJI  REAL  OTJ  ARRAY  OELTtOl! 
BEGIN 

L*»tL  JUMP# 


IF  »M«rtHP*Z(J]  TNCN  IIGIN 

OT*OeLTNI-'OElTcJJ«OELTlJ-SJ)«(TEMPTBAR)/ 
t TEmR«2[ J*  i  ] )  J  GO  JUMP  ENO! 

JUMP! 

ENO  OF  PROCEDURE  INTERPJ 

t*«tL  START, EXIT! 

TIMEITtGETUI 

FILL  OELTEC • 3  KITH  0,  .SS1S, . SS33, . 7BA9, ,9223, s # 


START  OF  SEOMENT 


FILL  OELTkC  *3  KITH  0, . 223, . S5S, ,31 3, .791, 1 1 


START  OF  SEGMENT 


sc 

tl 

4213 

sc 

tl 

44 1 0 

sc 

2l 

4m  1  3 

sc 

21 

4312 

sc 

21 

6710 

sc 

21 

6710 

sc 

21 

4710 

**** 

0007 

sc 

71 

010 

se 

7 1 

no 

sc 

7 1 

*10 

sc 

7 1 

612 

sc 

7 1 

1113 

se 

7 1 

1  2 1 0 

NEXT 

3EG 

0002 

se 

21 

4710 

se 

2 1 

0710 

sc 

21 

4610 

»****< 

0003 

NEXT 

SEG 

0002 

SC 

21 

4913 

**i**** 

0009 

NEXT 

SEG 

0002 

ftiUWiiil! 


TILL  Z  C*J  “< X T*H  0»l»2»«.16»10OJ 
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4.642699I09.0J 
2,600000009*02 
1.00  p»  1,40  »nt 


\mmxi 

1,1*4591299.03 

‘.2*01*9229.03 


ItUllHIll. 


3,t32e0i8*4-O) 

3,9330*4309.03 

*,9)1099119.0) 

*,139t394|4*00 


1  ••*1311131901 
*,24*ltll«9*0l 
2 , 100394099*0) 
8,9910491*9.0) 
3.9292913*4.0) 
«, 3)3*33291.0) 
2.1*3*12911*03 
1. 39920»024*Oj 
3,921099*99.03 
4,900602)09.0) 
1.204113*90*01 


2, *213902(9,0, 
».9ionjor4*o, 
3.165302314.0) 
6,9**01*049.03 
«,S*(I4)**9.0) 
S,0|2IS(S|9.0) 
2. *91)3(439.0) 
3 ,3**100009*00 
», 103*0*4*9*0) 
3,6853)0669.0; 


1,9)10309)9,01 
3.6*3131)38.04 
*.3*1*28809.03 
8.022*81029.03 
3,2*0)11684-0) 
(.69*4113*9.01 
2,94)83*319.03 
1, 44)34*109 »03 
4,299940924.0) 
1,600162939.01 


*.5142432*4*16 


?,3J9«29A?»*17 


LN  LAM3D;  ■  6.6539*00 

ELEC’OTCAL  CCNDUCTIVT77  8 IGva*  A,6C59*’l  I \VEr8E  □ 

ccmouc-IVJTv  <.  1 . 323*-*2  mTTsV-  DE5=E£5 


INVERSE  ** 


790“  \U**4.704  Ti  •  .  u.397  t>-e  V AlUE  nr  rMr 

FROM  MUall.807  '0  ;ja  0.0*2  THE  VALUE  OF  t"E 

r*flM  NU«  0.-65  TO  Vila  0.01?  TNF  VALUE  OF  TM£ 

9A0JAV*  rvT-TANCE  Fa  fl.M1»*0’  *ATTS/0“? 

elec7»’:  field  e.  a,6o;»*oo  volts/cv 

0 U 0 ° F V T  OEWJT*  Ja  2.l2i«*i?  Aw»/fi? 


ivtesaal  of  fvj  ;t 
i.vtesral  of  Fvu  is 
ivtesral  of  fnu  it 


1.569I*0J  6ATTS/C"? 
4,6954*0?  NATTS/C"? 
1.2816-ot  HATT4/C“? 


T-tC-F 

T-lll 

TuICs 


7wETA«C,S5  EV 

*«  10000.0 


ND£NSIT7«6 ,3*59*17 
DES5EEI  IT.  8*1 .0019*00  AT1* 


8A8TICLE5/CMJ 


"(v 

?«.T9A 

22.5a* 

20.662 

1».072 

18,710 
»«.5?9 
15.196 
13.774 
12.397 
11.607 
e.«5 
*.lf* 
4,9*9 
«. 1*2 
3.642 
5.094 
*.rs5 

*.478 

*.*'<* 

2.366 

1.900 

1.771 


84VELE.VS7H 

MIC60NS 

5,0009-02 

5 .5004- 02 

* .000**02 

6.5005- 02 
7,0009-02 

7.5009- 02 
A.OOO*-"? 

o,oeo*-o? 

1 ,0009-01 
1.0599-01 

1.5009- 01 

2.C0CF-01 
2, 59P9- *1 

3.0009.01 

3.5009- 01 
4.9005-01 
4.5039-61 
5,0004-01 

5.5009- 01 
6,0005-01 
6. 5009. -j 
7,0008-01 


- *P*Seao Jyr 

1/CM 

5 .601*  *00 
1 . 31 59*-  i 

1 .9449*1 j 

2,476**01 

2.93*9*01 

3,3279.01 

3.6739*6) 

4.2499*0) 

4,7)09*0) 

3.6458-04 

7,47*9*04 

1.3508-03 

2.1518-03 

3.1659.-3 
4,3429.-3 
5. 72J9-03 
T. *4)8-0  3 
6.8769-03 
6.7459*63 

'.3228-63 

3,2449.-3 

3,3419-03 


TAJ 


5,601**00 
1.3l5**01 
1  ,9449*01 
2.4769*01 
2,9329.i0t 
3.3279*0! 
3.6739*01 
4 .2499.01 
4  ,7109*01 
3.6459-04 
7.4729-04 
1.3504-03 
2.1614-03 
3.1659-03 
4  ,3«7»-03 

5.7224-03 
7.2409*03 
8, 8769*03 
6  .7459-08 
6.3*29-03 
3,9444-03 
3.3419-03 


C-74U1 

1-E 


SniJ  Ivy 

8* TTS/CM  stem 


FN  J 

8ATT3/CM 


9,9639-01 
1.000*03 
1 ,0009*03 
1.0009*00 
1.0009*00 
1,0009+00 

1 ,0009*06 

1.0009*00 

1,0003*30 

3.6449-04 

7.4699-04 

1,3498-03 
2.1589-03 
3.1609-03 
4,3.739-03 
5,7069-03 
7 1  tl *9-03 
8,6379-03 
4.7?99-63 
7,920**03 
3,2399-03 
0 ,3368-03 


3.0449-09 
3,1269-36 
2.1319-07 
1,0605-06 
4,1254-06 
1.3*09-05 
3,6079-05 
1 , 6689.04 
6. "369-04 
1.1549-03 
2.4159-02 
1.1218-01 
2.*28*.oi 
3,6629.01 
4.63BF-01 
5. *529-01 
5,5789*01 
5,6*09-01 
5.65*9*01 
5.5*29-01 
5.3319.+1 
5.1069-01 


3.037*-09 

3.1269-38 

а. isi*1-;? 
1,0609-36 
4,1258-06 
1,3209-05 
3 , 6-79-05 
1 , 6688-04 

б, 7  369-04 
4,2079-07 
1.8039-05 
1.5l7»-0* 
5,2358-04 
1.1639-03 
2,0099-03 
2,9979-03 
4,02*9-03 

3.0*89-03 

3,8019-03 

4,4)29-33 

1.7269-03 

1.7039-03 


7,7089-08 

7 .9266-04 

5,40C»-03 

2,6888-02 

1,0459-01 

3, 3*59-01 

9,i.l0*-0i 

4,734**00 

1  ,707**01 

2. 1329-02 

9,1*09-01 

7,66*9v00 

2.653**01 

5,6979.01 

!  ,0189*02 

1,5199*0* 

2,040^*0* 

2,5*98*0* 

1.9*79*0? 

2.2379*0? 

S, 7508*0) 

8,6j'<9*0i 


1.653 

1.550 

7,5009-0! 

8,0008-0) 

1.454 

4.500»-01 

1.371 

9,0009-01 

1.305 

9. 5009-01 

1.7*0 

1,000*. 00 

1,381 

1 ,0309*00 

1.327 

1.1009*00 

1.07? 

1.:50**00 

1 .033 

1  .2009*00 

0 ,00? 

1.2308*00 

e.*5» 

1,3008*00 

0**18 

1,3509*00 

0.886 

1 ,4009*00 

0.*35 

1  .4409*00 

0.82” 

1,5009*00 

0,*00 

1,3309*00 

0.77b 

1,6009*00 

0,7!! 

1.6507*03 

0.72* 

1.700»*00 

0,7fl8 

1,7599*00 

0,68* 

1 .800**00 

0,670 

t  ,*  5  0  9  *  0  9 

0.652 

5 .9009+00 

0  .636 

1.0509*00 

O.45O 

2.0009*00 

0,?*8 

3.0009+09 

’.126 

1. 0009+ot 

0,0*2 

2,0007*01 

0.028 

5,0004*01 

0.0*2 

1  ,C009*«)2 

3,9*99-03 

4.5698-03 

5.”99-H3 

3.6309--3 

4,0609-03 

4.5339-01 

3.o**«-ei 

4.6938-03 

3.3A39--3 

3.0499.03 

2.1809-03 

2.4019-03 

2.63*9-03 

2.8778-09 

3,133»-"3 

3.3009- 03 
3. 3449.-3 
3.46*8-03 

3.6009-03 

3.7538-03 
3.0219-03 
4.  1049-03 

4 . 3009- 00 
4,5109-03 

4.7528-03 

4.9e7*-03 

3.6*89-"? 

1  ,8-99-oj 

8,6434-01 

4,2589*00 

1.7089*01 


3.9*09-03 

*.1999-03 

5.2609-03 

3.6309-03 

4.3699-03 

4.5339-03 

5.0229-03 

4.6*59-03 

1.5459-03 

3.9439-03 

2.1609-03 

2.4019'",  3 

2. 6349-03 
2,8779-33 

3,l33»-03 

3.3*99-03 

3.3449-03 

3.464»-03 

1.6039- 03 
3,7539-03 
3,9219-03 
4.1049-03 
4.3009-03 
4.6109-03 
4.7329+03 

4,9679.03 

3.6569-02 

1.6039- 01 
8.6439-01 
A ,2369+00 
1.7069*01 


3.9229-03 
4.5589-03 
5.2*78-03 
3,6*39-03 
4,0818-03 
4,5238-03 
5,0108-03 
4,68*8-05 
3 ,53*8-03 
3.9)48-03 
2,1784*03 
2,3989-03 
2,6309-05 
2,8738-03 

3.1288-03 

3.3949-03 

3.3398-03 

3,6589-03 

3.5948-03 

3,7*68-03 

3, *138-03 
4 ,3059-6  a 


4.2*18-03 

4,4998-03 

«.7?;9-03 

4.95*9-03 

3.6168-0* 

1.4798-oj 

4,8548-OJ 

9,8568-01 

1,0008+00 


4.8468-01 
4,62*9-01 
4,5604-01 
4,1*64-01 
3 , °229-0l 
3,70*9-01 
3. 5099-01 
3,3218-01 
3,1448-01 
2,97*9-01 
2,8259-01 
2 ,6829-01 
*,5478-01 
2,4(29-01 
2.3059-01 
2,1969-01 
2,0934-0) 

l  ,999»-01 
1.9069-01 
1,8249-01 
1.7159.01 
1.4719-01 

1 .8C19-C1 
1,5369-01 
1,4749-0) 

1 .*169-01 
7,8629-02 
7.7079-03 
l,900*-y3 
3, 2689-04 
8.2509-05 


1 .*089-03 

2.1078*03 

2,2*88-03 

1 ,5028*03 

1 . 5«39-73 

•  ,6789-03 

1.7398-03 

1.5559-03 

1,1139-03 

1.1728-03 

6.1649-04 

6.4329-04 

8,7009-04 

6, *5*8-04 

7.20*9-04 

7,4619-04 

6 , 0999-OA 

6, *079-0* 

6.6-89-C4 

»,63?8-P4 

6,8948-0* 

6,64?»-0a 

6,6709-04 

6.9O96-04 

6. *979. 04 

7,0138-04 

1 .OIS*-'^ 

1 , 1 409.-3 
9,7Ol«-04 
3.2?l9-04 
5, ’309-05 


9.6739*01 
1.0688*0* 
1.1659*02 
7.6149*01 
6.0739^0) 
8,5049*01 
8,9109*01 
7,8849*01 
3,6408*01 
5.0416+01 
3.1199+01 
3.260' *0l 
3.3*69*01 
3,5279*01 
3.654**01 
3.7779+01 
3.542“*0i 
5, 50)9*0) 

3.4759*01 

3.4639*01 

3.4619*01 

3, a6S»*0i 
3,4629*01 
3.502«*0i 
3.527**01 
l.355«*0l 
5.2539*01 
5,7639*01 

4 ,  ’067+0 1 
8, ’479*00 
2.0839*00 


C‘? 


* 


,7U,,0?  MONO**,  October  M,  IP,,  wrl  algul  version  or  ,/,,„ 

COMMENT  TN°uT  »  ANO  T  USES  DICKS  KAPPAS  ft  no  ne  and  NT  IN  HOMO  T, 
CYLTNQENi 


comment  gEil.por  church, stb.poait.simplipied  problem! 

tile  IN  B4AAKAPP4  DISK  SERIAL  (2.60.1200)1 
PILE  IN  ReAOER( 2 #10)1  PILE  OUT  GElL  4(2, |5); 

COMMENT  TIMEIT 

TO  obtain  listing  merge  IN  blank  capo  with  SEOUENCF  NUMBER  000000301 

INTEGER  LOW!  # 

REAL  IT»Ne'N',  ,P; 

REAL  (LAMBDAS! 

REAL  NLAMi3DA,BT,0T,ET,NTDTLI 

REAL  A, K> N, THETA, COUVT, M. IM2, TEMP, E. MM, *E, TEMP 1,J, EPS! 

REAL  01 

REAL  IR2P.LITTLEA.AT3,X,HNU1.HNUS.MNUI.NHNU,C1.C2.C2A.C29.C3J 
real  L»Ri,M?,Pi,r*i 
REA:,  expdn,  factj 

REAL  El. TEST, ONU, 03, SUM J 

REAL  <**INT.  SIGMA,  saTHETA,OT£.  DTK.  KK, DEMON,  TAU.PNUDNUJ 

REAL  IBAR.VkTN! 


REAL  UDIV.VOIVJ 
REAL  0 VJ 
REAL  U.V.U2J 

REAL  NTHETA, JTHETA.MN, JNI 
ARRAY  KAPpACDI 23, 1 190 J I 
ARRAY  ATheTA.ANCOIAOII 
SAVE  ARRAY  SINVCOIAJI 
ARRAY  DElTF.OELTK.ZCoiSJJ 
ARRAY  HNUfolAODII 
ARRAY  I COtA],OlCOI6]3 

FORMAT  DEBUG (/"THE  DOUBLE  INTEGRAL  IS",EID,3)J 


start  nr  segment 


pppppppp 


SC 

1 1 

f»iO 

sc 

1 1 

n  in 

sc 

1 1 

mo 

** 

sc 

?: 

n  i  o 

sc 

?t 

0:0 

sc 

P  t 

317 

SL 

Pi 

1012 

SL 

?l 

1012 

J 

2* 

HiO 

SC 

2 t 

1510 

sc 

?l 

1510 

sc 

2  1 

1 5 » 0 

sc 

2l 

'510 

sc 

21 

1510 

5C 

2» 

1SI0 

SC 

2l 

1510 

SC 

21 

1510 

sc 

21 

1510 

sc 

21 

1510 

sc 

21 

1510 

Sc 

21 

1510 

sc 

21 

1510 

sc 

21 

1510 

sc 

21 

1510 

sc 

21 

1510 

sc 

21 

1510* 

sc 

2* 

1710 

sc 

2l 

1910 

sc 

21 

2013 

sc 

2  t 

2310 

sc 

2l 

?fl»3 

sc 

2 1 

7P  i  1 

*. i  .  Rt  op  segment  **********  noo7 
ooo?  is  ooop  long,  next  seg  0002 

FORMAT  SN(  "PROM  NU.-.P6.3,  »  TO  NU-.F7.3."  THE  VALUE  OP  THE  INTEGRAL  Sc  ,, 


DP  PNU  IS",EI0.3*"  W*TTS/CM2",X5,ftis), 

SIGM*k(hLN  lambda  ■".Ell. 3/ 

"ELECTRICAL  CONDUCTIVITY  SIG«A.»,EU.3  ,»  INVERSE  DhmS  INVERSE  CM"/ 
"Thermal  conductivity  k.",eh,3  »"  watts/cm  degrees-), 

EJ("ELECTRlC  PlELO  E"",E 1 1 ,3  ,"  VOLTS/CM  "/ 

"CURRENT  DENSITY  J.",E11.3  ,»  AMP/cmj»), 
PINAL(/"RADIANT  EMITTANCE  P«",E||.3  ,"  *4TTS/CM2")J 


Sc  21  2B  i  J 
START  OP  SEGMENT  ,,008 

Sc  B I  pB  1 1 

SC  Si  ?bi1 

sc  bi  ?n  11 

Sc  P I  2BI1 

sc  61  2B  t  1 

sc  Bi  ?BI1 

Sc  BI  ?B|| 

OOOB  is  0073  LONG,  NEXT  SEG  0002 


rORuAT  rnRGOTl  "SIMPSON  REQUIRED  FVtN  CUMBER  3F  POINTS")) 


SC  2 I  3111 

start  op  sfgmfnt  *•*••****.  0009 
ooor  jr  0010  long.  next  sfo  nnop 


FORMAT  T i TLE("NAME  OF  THE  5»S  IS  READ  F»Om  TITLE  CARO"), 

sc 

2  i 

9*1  1 

0P("0»",FR.2.X5»"P»"»  FT.?."  ATM"), 

sr. 

10! 

?«  !  1 

MR1T£T(«T»",I4/."  OEGREES"). 

sc 

in! 

9*  !t 

OESCRlPTIONC"CYLtNOER  FOR  HOmOOiEneoUS  TEMPERATURE" 

sc 

1 0  s 

?«!  1 

"»  NEGLECTING  THERMAL  CONDUCTIVITY"). 

sc 

10! 

9*1  1 

OOUT ( «0"",R9, A  ) , 

Sc 

10! 

9*1  1 

NTHfTAt"N"".R9.0,X5."THETA"",R5.?,"  EV"), 

sc 

1  0 1 

9*  1  1 

l“("'*",X6.«UNj«/[li,ri0.3)), 

sc 

10! 

9*  11 

lMS("l[M"l/?).«  .F«,«.XJ."l(M+1/2)»"  ,FR.(I). 

SC 

10! 

?ftl  1 

NIS1»N"",£10.1>, 

sc 

in: 

?"!  1 

TITL^PL0T(X10*WTMETA*»,•#^<^•2#,,  EV*#X7*"NT0TAl«"#tO#3#X7*"^E^SlTVB*»*EQ#3f 

sc 

10! 

28!  1 

"  PART1CLES/CM3"  / 

so 

10! 

9*  11 

xi6."T»".re.i."  degrees  <.".xt."r»", e«.3,»  aTM"  /// 

sc 

101 

9*  1  1 

"  MNU  HAvElENGTH  kAPPA.PR!H£. 

sc 

10! 

281  1 

"  taj  c-tau)  bnu«. 

sc 

101 

2fll  1 

XI 1 »*!NU*  « X 1 1 ,*FNU"  / 

sc 

10! 

?*i  i 

-  EV  MICRONS  1/CM".X23."1"E  "  .Xl«  ."RATTS/LH  STER", 

sc 

101 

?8il 

X)1.»RATTS/CM»  / 

sc 

101 

2811 

}> 

sc 

10! 

2811 

LISTPLQT[f7.3»E12,3.6£1A,3>» 

SC 

in! 

2811 

mbar["AFter»,I5,»  iterations,  rsaR»".eio.3."  rhere  m-xf.»,e1043)J 

sc 

10! 

2811 

0010 

IS 

0186  LONG. 

next  SEG 

0002 

OEFINE  JOO"FOR  J*0  ST£R  1  UNTIL  6  00  #. 

sc 

2! 

?fll  1 

UOO 1 "FOR  J»1  STEP  1  UNTIL  6  00  IJ 

sc 

?! 

2*1  1 

PROCEDURE  CHOP!  BEGIN 

sc 

2! 

2011 

RRlTECGEIL.SN.HNUlLORl.HNUt J"1 3»A65[FNU0NU>»TKTN)I 

sc 

2! 

?fl  J  1 

IF  TKTN"»  TRICK"  TMen  TKTN»"  THIN  «  ELSE  TKTN*"  THICK"! 

sc 

2  1 

A?l  1 

SUH*SUH*FNUONUl 

sc 

?! 

6713 

fnuonu*oi 

Sc 

2' 

A  R  1  0 

LOR*JJ 

sc 

2! 

6913 

eno  OF  PROCEDURE  chdpj 

sc 

2! 

8012 

PROCEOUH£  1NTERPCOT.OELTW  REAL  OT!  ARRAY  OFLTCOI! 

sc 

2! 

8310 

begin 

sc 

21 

S2I0 

LABEL  Jump j 

START 

sc 

?! 

*9 1  0 

UOOl 

SC 

1 1  : 

on  1 1 

mo 

IF  ZBAR<TEHP»?1ji  then  BEGIN 

sc 

111 

1  10 

OT»OELT[ J  3- C  DEC  T  C J3"0ELTcJ"1 ] )* ( TEHP-ZSAR ) / 

sc 

11  ! 

1  !0 

1 TEHP"Z 1 U" 1 1 )  3  Go  jurP  ENO! 

sc 

1  1  ! 

ft !  ? 

JUHPl 

sc 

11  i 

1  M  3 

END  OF  PROCEDURE  1NTERPT 

sc 

11! 

1  2 !  0 

d-a 


0011  T5  0013  LONG.  NEXT  sf.g  ono? 


REAL 

SC 

2! 

*2)0 

PROCEDURE  SIMPSON! l.R.X.Y.N)) 

sc 

21 

*?ID 

COMMEPi*  N  must  RE  EVEN' 

sc 

?! 

52lo' 

VALUE  A#B#NJ 

sc 

2* 

59  I  0 

REAL  A.S.N.X.Y) 

sc 

21 

«5?ID 

regin 

sc 

2* 

REAL  OX.OX2.SUM2.RUMft.RR.SUM) 

3C 

2« 

59 '0 

start  OF  SRGmfnT 

)***« 

0012 

IF  N  MflC  ?  ■  0  THEN  BEGIN 

sc 

121 

0)0 

SUM2*SUM«*SUM»0) 

Sc 

1 2 1 

1  '3 

nx*(B-»)/(N  )) 

sc 

12i 

3  *  2 

DX2-0X+DX)  BB*B-DX*DX/3> 

sc 

12) 

5)1 

FOR  X* A+DX2  STEP  0X2  UNTIL  SB  00 

sc 

12' 

*13, 

SUM2*SUM2*Y) 

sc 

12! 

1MD- 

FOR  X»A*Dx  STEP  0X2  UNTIL  SR  00 

sc 

12! 

17)3 

SUMfl*  SUMft  +  Y ) 

sc 

12' 

25 '0 

FDR  X*A,8  DO 

sc 

121 

2613 

SUM»SUN*Y) 

sc 

12  l 

1113 

SIMPS0N*(SUm*2*SUM2*8*SUM8)xdX/3) 

sc 

121 

1112 

ENO  ELSE  HRITEIGEIL, FORGOT)) 

sc 

1 2 1 

37)1 

END  DF  PROCEDURE  SImPrON) 

sc 

12! 

80)  3 

0012  is  DD»6  LDNG,  NEX 

T  SEG 

0002 

LABEL  START, EXIT) 

sc 

2  ! 

52  *  D 

TIMEIT(GEIL)) 

FILL  OELTE t  * ]  HlTH  0. ,5816. .683 3. .7889, ,9225, 1) 

FILL  OELTkI • I  *ITH  D», 225, .356.. 513,. 791, D 

FILL  Z  T*]  *ITH  D, 1,2. 9.16.100) 

r»CT*1.1909»-12*( 11605/1 .838) *3) 

V0IV*8) 

09*1.5707963268/ (VO  IV  )) 

V*-DVX. 999999) 

FOR  TEMP*o  STEP  1  UNTIL  VDIV  DO 

SINV[TE«P]*SIN{V*V*DV)«2) 

rE»D(P»SSKAPPA.*,BT,Ot,ET)> 

NT*(ET*BT)/0T) 

RE»0(P*SSK»PP».*.NL4MBO»)) 

RE*0(P»SSK*PP*,NLA“P04*t,HMu( *] )) 

START) 

READIREAOFR.  TITLE  HEX  IT))  WRITEIGEILIPAGEI  )>  RRI T£( GE IL «  TI TLE  > ) 
rEAD<rEADER,/,0)1 

d-3 


i 


sc 

2 1 

52  1 D 

sc 

2) 

5  3 1  D 

START 

OF 

SEGMENT  *< 

( *  ** 

0013 

0013 

IS 

0D06  LONG. 

NEXT 

SEC. 

0002 

sc 

2! 

58l3‘ 

START 

OF 

SEGMENT  *' 

»**# 

0014 

0018 

IS 

0006  LONG. 

NEXT 

SEG 

0002 

sc 

21 

*612 

start 

or 

SEGMENT  •' 

»«** 

0015 

0015 

IS 

0006  LONG. 

NEXT 

SFG 

0002 

sc 

21 

1 

J 

sc 

2! 

61)0 

SC 

2  * 

6113 

sc 

21 

63)0 

sc 

2! 

6412 

sc 

2' 

71  10 

sc 

21 

7612 

sc 

2! 

R  7 1  3 

sc 

2' 

89)2 

SC 

2! 

0713 

sc 

21 

101)3 

sc 

2  1 

102 10 

sc 

2! 

11911 

nRITE(GEIL»OESCR!PT!QNJI 

SC 

?< 

119)3 

NH**il*NL  AmrDa  J 

SC 

7\ 

1*?:  3 

FOR  J*1  STEP  1  UNTIL  NLAM80A  00  HNJt Jl* 1 .2 J97 /HNUt Jl I 

sc 

?I 

1  ?3i  ? 

HNUtNLAMB04*t 1*01 

sc 

?! 

!?oi! 

RESIN 

sc 

?t 

MHO 

array  bnu*kappaprike#fnucoinhnuI i 

sc 

?} 

m>o 

start  of  segmfnt 

***** 

OOj  6 

IT*-1‘ 

sc 

161 

111 

FOR  T*BT  STEP  OT  UNrll  ET  00  BEGIN 

sc 

161 

ail 

HRITE(GEIL»«RITET»T)| 

sc 

16| 

r.lO 

IT*IT*1) 

sc 

161 

i?i  l  ’ 

READ CPASSKAPPA»NLAMBOA<KAPPACIT»* 3)1 

sc 

1 6  I 

13)2 

reaocpasskappa»*»pii 

sc 

1 6  1 

1  7 )  1 

NR  ITE  t  GE  Il»  0P»  0»  P  >  J 

sc 

101 

?«)  3 

nRITELGEILCPAGEDI 

sc 

161 

1*1  1 

TOR  J*1  STEP  1  UNTIL  NLAHBOA  00  KAPPAPRINEt JJ»KAPPAtIT» JJI 

sc 

16  * 

37)0 

rEaocpasskappa.*,nE,ntotlX 

sc 

161 

a3iD 

N*NTOTL*N£l 

sc 

161 

32)3 

m»NE/NI 

sc 

161 

3#  '0 

THETA*T/1|605) 

sc 

161 

63H 

S8TMETA*S0RT(TMETA)I 

sc 

161 

36)2 

f F  MS. 5  Then  Z8AR*1  ELSE 

sc 

16> 

3T)3 

ZBAR»M+, 23/MI 

sc 

16  2 

39 )  3  v 

r 

INTERPIOTE.OELTEJI 

sc 

1  6  1 

6*1  3  i 

j* 

INTERPIOTK.OELTKII 

sc 

161 

66)1  i' 

OEN0H»ZBAR*,4J*24«A8i»O3*  (  PRINT*  LN{ 2,«01P20*TheT A‘3/ 

sc 

161 

67)  3 

tZBAR«2«MX(l*ZBAR)*N)))» 

sc 

1 6 1 

70)2' 

$IGmA*266xSQTHETA*3kOTE/OENOMI 

sc 

161 

7310 

KK».2«65*s0THETA»5n0TK/0EN0MI 

sc 

161 

7*11 

mriteigeil  >» 

sc 

161 

*21  0  j 

RRITEtGElL»SlGMAK»PR!NT,SlGMA»KK)l 

sc 

161 

**l  3 

FOR  J*I  STEP  l  UNTIL  NHNU  00  BEGIN 

sc 

161 

9911  \ 

TAU»KAPPAPRIMEt JI«OJ 

sc 

161 

100)0; 

BNUt Jl*FACTN(TEMPI*HNUtJ] )  »3/CExP(TEMPl/THETA  l-ll) 

sc 

161 

101)2 

U0IV»ENTIERtTAU«1.5)l 

sc 

161 

10710 

I r  uoiv  Moo  2/0  THEN  U0IV*UQIV*1I 

sc 

16) 

100)1 

IF  U01v<2  THEN  U0IV*2| 

sc 

161 

112)1 

FNUt J]*  8Q66»BNuC J]*C3.l4lS926536-A* 

sc 

1 4  | 

11*1 1 

TEMP* 

Sc 

16) 

116*1 

( 

sc 

161 

11611’ 

IF  UOIVMOO  THEN  0  ELSE 

sc 

161 

116)1 

SlMPSONIo.l  »U,SIMPsONtO»VOIV,V,EXP(*TAUNU/[  {U2*U*2)*U-U2)nSINVIV  J )), 

sc 

16) 

11M1 

VOlV)NU»UOlV  ,5707963268/VOlV 

SC 

161 

1301? 

) 

sc 

161 

136)3 

>! 

Sc 

161 

17413 

ENO  OF  J  LOOPI 

d -4- 

sc 

1 6  1 

13910 

•r 

ENO  OF  J  l_00°l 


wRITE(GElLtDBL))) 

03‘3/D! 


sum*oi 
lowm  > 

TEMPOS!  G^(t<A©PAPfiIM£[  j  ]»f)3  )| 

FNIIONUwFNUI*  )*CHNUEi  ]-HNU[2)  }) 

IF  T£mp<o  T  “EN  TKTN»»  TWIN  «  £l3E 
TKTN»"  TH I C x " i 

for  j»2  step  i  until  nhnu  oo  begin 

ir  temp,  TEy.*SISN(KApP*PRlMEtJl-03,  thEn  CMnpj 

0Nu»MNut JI-HNUtJ+1 1) 

PNUONU*FNUONU*TEMP1»rAfU[J,xOMU, 

ENB  OE  j  LOOP) 

CHOP) 

WRITE<6EIL»FINAU.SUM)) 

W«mE(GElL.Ej,TEMP»SQPT(««Suy/{SIGMA*OI),sISHAKTEHP)) 

WRITE(GEILCPBLI)) 

MR  I TE< GE Il.TITLEPLOT. THETA. TEMPI. < i.MJxn.n. 

TEMP.11605KTHrTA,TEMPl«rFMP/<2.SR7Pl9x273)>) 

WBITCIGEIL.LISTPLOT.FOR  J*,  STEP  1  UNTIL  NHNu  „o  t TEMP,.HNuC J 1, 
1 #2397/TEMPj .  TEMP.KAPPAPRIMEI  jj,  TEHPxO. 
EXP0N*1.EXPI.TE«»*0I.BNU[JJ  .EXPONPRNUtjI.FNutJIII) 
XRITE(GElLtPAOEII) 


5C  1  61  1  A)  |  1 
sc  is  I  1 AAI 0 
SC  161  lASll 
SC  1 6 |  lASIO 
SC  1  SI  1 USI 3 

sc  isi  ismo 
SC  J  S I  is? I  2 
SC  ISI  1SSI2 
sc  1 6  I  1s7I3 
SC  ISI  lsoio 
sc  ISI  1SAI3 
SC  Isi  IsTtO 
SC  Is  I  169*2 
SC  Isi  17113 
SC  161  172*1 
SC  1 6  I  lROIl 
SC  1st  19411 
SC  161  1 «7  «  0 
SC  161  20612 
sc  161  2*011 
SC  161  227*3 
SC  1 6  I  237*1 
SC  IS*  232H 


END  OF  THETA  LOOP) 
TIHEIT(GEHl) 
end  dynamic  hnu) 

exit*  end. 


l  J 

EXP 

IS  SEGMENT  NUMBER  0017. 

PRT  A00RE5S  IS  0213 

LN 

|  ■: 
i  i 

LJ 

0018 

021 1 

SIN 

0019 

0171 

sqrt 

0020 

0210 

[  j 

OuTPUT(H) 

0021 

0034 

BLOCK  CONTROL 

002? 

0005 

r i 

INPUT(H) 

0023 

0173 

lj 

50  TO  SOLVER 

0024 

0176 

ALGOL  MRITe 

0025 

0014 

n 

Algol  read 

0026 

0015 

Li 

*lgdl  select 

00J7 

0016 

sc  IS*  2SSI0 
SC  1  ft  *  2sA : l 
SC  1 6 1  2S0 1 1 
0016  IS  0263  LONG,  NEXT  SEG  0002 

i 

SC  21  13310 
000?  IS  0136  long,  next  SEG  0001 


NUMBER  OF  ERRORS  oETECTEO  «  ODD 


LAST  CARD  MITh  ERROR  haS  Sfo  < 

PRT  SIZE.01A7)  TOTAL  SEGMENT  SIZE«OOR37  WORDS)  niSM  Storaof  oro 

0I5M  5T0RAGE  RE0.«011?8  MOROS)  NO.  SFGS.«nn?fl. 

ESTIMATED  CORE  STORAGE  RfOuiREMENT  «  06331  wOROS. 

1 71  41 1  3A  MfiNOAY.  OCTOBER  ?5  .  1965  PRriSFSSOP  Tiur 

1  PROCESSOR  time  .  is. 18  SECONDS  I /„  t,«e  ,  ,„.S?  SECONDS 


RUN  TIME. 
jiaiPu 


PROCESSOR  Time 
1  SEC. 


i/o  t^e 
11  SEC. 


run  o»te 

OCT. 25. 1965 


CYLINDER  EOR  HOMOGENEOUS  TEMPERATURE*  NEGLECTING  THERMAL  CONDUCTIVITY 

T»  9000  DEGREES 

0“  1,00  Rp  TOO. 00  atm 


UN  u*mhu»  f  r.o/K^«*oo 

e.  ectrical  conductivity  sigm*«  3.7024*01  inverse  uh«s  inverse  c 

Tt ERMaL  CONDUCTIVITY  K*  <9 .  3  WATTS/C R  DEGREES 


from  to  mi«  12. 397  the  value  ir  the 

FROM  nU«11.807  TO  N!  is  0.025  THE  V » L  J  E  IF  The 

FROM  NU*  0.012  TO  Ml*  0,017  THE  VALUE  JE  The 

radiant  E“1TTanCE  F *  6.001**01  OATTS/CM? 

ELECTRIC  F 1EL0  £«  7.5466*00  VOlTS/CM 

Current  density  j*  9.4274*01  am»/cm2 


Integral  of  fmi  is  s.«i2a+oo  watts/cmp  thick 
Integral  of  fnj  is  5.658»*oi  hatts/crr  thin 
integral  of  enj  is  ?,?3Ra-oj  hatts/cmp  thick 


TMETA«0.76  EV  NT0TAl»5. 1556*17  nOENSI 

T«  ROOD • 0  OEGREES  K.  R*1.001**00  ATm 


N'JLNSIT  /« 7.0  77S*  17  PART1CLFS/Cu3 


HNU 

wavelength 

kapra-prIme 

tau 

< -T  AU ) 

RNJ 

I  MU 

EV 

MICRONS 

1/cm 

1-E 

WATTS/CM 

5TE0 

24.79# 

5.000**02 

7 , 5 A4**00 

7.5444*00 

9,995**01 

1.24*4-10 

1  •  2/i  <1  1  0 

22.5*0 

5.500**02 

1.7714*01 

1.771.4*01 

1,0008*00 

1 .7104-09 

20.862 

6.000**02 

2,6174*01 

2.6174*01 

1  ,003**00 

1 .4844*08 

1  ,  an 

19.072 

6.5004-02 

3 . 334* *01 

3.3344*01 

1 ,000**00 

9.0634-04 

9,Oa3*-O0 

ir.no 

7.0004*02 

3,948**fll 

3.9484*01 

1  ,0008*00 

4,2044*07 

4 , 2*40"O7 

16.529 

7.500**02 

4.481**01 

4,4614*01 

1,0008*00 

1.5664-06 

1  ^*60-00 

15.496 

6,0004-02 

4 ,9fl  6*  *0 1 

4.9464*01 

1.0008*00 

4.8904-06 

4  ,09O0"O6 

13. 274 

9,0004.02 

5.723**0l 

5.7234*01 

1 ,000**00 

3. 163**05 

?•  l*3*-05 

12.397 

1.0004-fll 

6.3444*01 

6.344**01 

1 ,0008*00 

1.3624-04 

1  •  3020-04 

11.607 

1  ,0504-0  1 

1,346**04 

1.3484*04 

1,348**04 

2,5194-04 

3 , 3944-00 

6.265 

1.5004.01 

2.759**04 

2.7594*04 

2.7598-04 

6.3164-03 

2,2050-06 

6.199 

2.000**01 

4.966**04 

4.9664*04 

4,965**04 

5,0404*02 

2,5020-05 

4.959 

2.5004*01 

7.906*-04 

7.9084*04 

7.905**04 

1.2764*01 

1  ,0100-04 

*.132 

3.0004-01 

1.155**03 

1.1554-03 

1.154**03 

2.1534*01 

2.4*50-04 

3.542 

3.500**01 

1.532**03 

1.5624-03 

1,581**03 

2,9194-0! 

4,0100-04 

3.099 

4,000**01 

2.082**03 

2.0824-03 

2,080**03 

3.4904-01 

7  #25O0-rt4 

2.755 

4.500**01 

2.636**03 

2.6364-03 

2.6328*03 

3,661 4-01 

1 .fll**-03 

2.479 

5.000**01 

3,2368-03 

3.2364-03 

3.231**03 

4.0674-01 

1.3140-03 

2.254 

5.500**01 

2.369*-03 

2.3664-03 

2.3658-03 

4.1454-01 

9,0030-04 

2.066 

6.000**01 

2.6184-03 

2.8164-03 

2.8128-03 

4.1344-01 

1 • 1*20-03 

1.907 

6.500**01 

9.7664*04 

9.7664-04 

9.764**04 

4,0804-01 

3 , 9ft<|0  "04 

1.771 

7.000**01 

1.0144-03 

1.0144-03 

1.014**03 

3.9464-01 

4. 0000-04 

1.653 

7.500**01 

1.194**03 

1.1944-03 

1.193**03 

3.8064-01 

4.5410-04 

ENU 

K AT  T  S/CM 

3.110**06 
A. 323**05 
3.757«-0a 
2,9954-03 
1.065**02 
3,968»-02 
1 . 2390*0 1 
*.0l3**0i 
3.«51»*00 
5.556*-0a 
5.7R5*-02 
6 . 30  7**C  1 
2.5«6**00 
6 ,26A**Oo 
l.l«3**0i 
1 ,8294*01 
2.56 1 **0l 
3 . 3 1 1  *  *0 1 
2.4714*01 
2 .9  29*  *0  1 
9.99 1 **00 
1.0080*01 
1,1446*01 


1.550 

8.0004-01 

1.3894-03 

1 • 3899-03 

1.3686-03 

3.6534-01 

5.070*-04 

1.2700*01 

1.456 

8.5004-01 

1.6004-03 

1  .6006*03 

1,5996*03 

3.4944-01 

5.5864*04 

1 , ao«0*oi 

1.377 

9.0004-01 

1.117**03 

1. 1376-03 

1,1376*03 

3,3346-01 

3,7494-04 

9,5500*00 

1.305 

9.5004-01 

1.2754-03 

1.2756-03 

1.2756*03 

3.1766-m 

4,0446-04 

1 .0200*01 

1.2*0 

1 .0008*00 

1.421**03 

1.4214-03 

1.4206*03 

3,0224-01 

4.2926-04 

J  + 

1.161 

1 .0504*00 

1.5758-03 

1  .5756*03 

1.573**03 

2,675»-0I 

4,5946*04 

i. 1400*01 

1.127 

1.1004*00 

1.447**03 

1.4476-03 

1,446**03 

2.7344-01 

3.9546*04 

9,9670*00 

1.076 

1.1504*00 

1.0418-flJ 

1 .0416-03 

1,040**03 

2.6014-01 

2,7056-04 

6,0190*00 

1.033 

1.2004*00 

1.1594-03 

1.1596-03 

1.1588*03 

2.4754-01 

2.6676-04 

7,?25**00 

0,692 

1 .2504*00 

6.4226-04 

6.4226-04 

6.4208-04 

2.3556-01 

1 .5126-04 

3, *110*00 

0.954 

1 .3004*00 

7,0848*04 

7.0844-04 

7,081**04 

2. 2434-01 

1 ,5684*04 

4,003**00 

0.918 

1.3504*00 

7,7804*04 

7.7606-04 

7,7778-04 

2.1376-01 

1 ,669**04 

4,190**00 

0,886 

1.4004*00 

6.512**04 

6.5126-04 

8,508*-04 

2. 0384-01 

1,7346-04 

4 . 3710*00 

0.855 

1 ,450**00 

9,2794-0* 

9.2796-04 

9,2758*04 

1.9456-01 

1 .9044-04 

4,5460*00 

0.826 

1 ,5004*00 

1.006**03 

1  .0096-03 

1 ,008*-03 

1.8574-01 

1 .8716-04 

4,7160*00 

0,800 

1.3504*00 

9,6448-04 

9.6446-04 

9 ,6  39*  *04 

1.7756-01 

1 ,7a6**04 

4,4000*00 

0.775 

1.6004*00 

1.017*-03 

1.0174-03 

1 .017**03 

1  .6976-01 

1 .7766-04 

4,3490*00 

0.751 

1  .6504*00 

1.055**03 

1.0554-03 

1.055**03 

1.6246-01 

1 .7136-04 

4,3180*00 

0.729 

1.7004*00 

1 .098**03 

1.0964-03 

1,096**03 

1  .5554-01 

1 .7076-04 

4,3020*00 

0.706 

1.7504*00 

1.145**03 

1.14  5»*03 

1.1456-03 

I  .4914-01 

1 ,7066-04 

4,3000*00 

0,689 

1,8004-00 

1,197**03 

1.1976-03 

1.1966*03 

1.4306-01 

1,7|0*-OS 

4,3090*00 

0.670 

1  .8504*00 

1.2524-03 

1 .2520-03 

1.2516*03 

1.3726-01 

1 .7176-04 

4,3270*00 

0.652 

l,9004*oo 

1.3114*03 

1.3114-03 

1.310**03 

1.3164*01 

1 .7774-04 

4 , 35?0*OO 

0.636 

1 .9504*00 

1.374*-03 

1.3746-03 

1.3738*03 

1.2664*01 

1 .7394-04 

4,3030*00 

0,620 

2.0004*00 

1 .440**03 

1.4406-03 

1.439**03 

1.2194-U1 

1.7836-04 

4 ,4100*00 

0.?*8 

5.0004*00 

1 ,039*-02 

1 .0394-02 

1  . 0  348*02 

2.5336*02 

7.6156-04 

6 ,594**00 

0.124 

1 .000**01 

4.4734*02 

4.4734-02 

4 . 374* *02 

6.6806*03 

3.0096*04 

7.5020*00 

0.062 

2.0004*01 

1,649»-01 

1.8496-01 

1,688**01 

1,7924-03 

3,0986-04 

7,532«*00 

0.025 

5.0004*01 

1 .1774*00 

1,1774*00 

6.917**01 

2.9376-04 

2.0314*04 

4.9100*00 

0.012 

1.0004*02 

4,73*6*00 

4.7346*00 

9,912**01 

2,4016-05 

7.3364-05 

1  ,*o*,0*oo 

T«  10000  DEGREES 

0«  1,00  P«  76(3. DO  A T m 


LN  L*mBOA  •  6 • 6538*00 

ELECTRICAL  CONOUCTIVIT*  5 1 GMA«  4.6058*01  INVERSE  OHMS  INVERSE  CM 
THERMAL  COnOUCTIvITY  K«  1.3230-02  HATT5/CM  OEGrEES 


FROM  NU«24,794  TO  NU» 
FROM  NU.11.807  TO  NU« 
FROM  NU.  0.025  TO  NU. 


12,397  THE  VALUE  UF 
0.062  THE  VALUE  OF 
0.012  THE  VALUE  OF 


THE  INTEGRAL  OF  FNU 
THE  INTEGRAL  OF  FNU 

the  inteoral  of  fnu 


15  1.6688*01  HATTs/CM? 
IS  2,3348*02  WATTS /CM? 
IS  1 . 2369-01  NATTS7CV9 


RADIANT  EM1TTANCE  F.  2.5228+02  WATTS/CM? 
ELECTRIC  F1ELC  E«  4.6818*00  VOLTS/CM 
CURRENT  0ENS1TY  J«  2.1568*02  AMP/CH2 


thick 

THIN 

thick 


theta. 0.86  EV  NTOTAl* 7, 3408*17  NDENS ITY»6 , 3468* 17  RARTICLFS/CM3 

T.  10000,0  DEGREES  K.  P«l, 0018*00  ATM 


HNU 

wavelength 

KAPPA-PRIME 

TAU 

t-TAU) 

BNU 

INU 

FNU 

EV 

MICRONS 

1/CM 

1-E 

HATTS/CM 

STEP 

WATTS/CM 

24,794 

5.0008-02 

5,6018*00 

5.6018*00 

9,9638*01 

3.0448-09 

3.0338-09 

7.5148-05 

22,540 

5.5008-02 

1.3158*01 

1.3158*01 

1,0308*00 

3.1288*08 

3,1288-08 

7.8928-04 

20.662 

6.0008-02 

1,9448*01 

1.9448*01 

1  ,0008*00 

2.1318-07 

2.1318*07 

5.3898-03 

19,072 

6.5008-02 

2.4768*01 

2.4768*01 

1 ,0008*00 

1,0608-06 

1.0608-06 

2.6838-02 

17.710 

7.0008-02 

2.9328*01 

2.9328*01 

1 ,0008*00 

4.1258-06 

4.1258-06 

1  .0448-01 

16.529 

7. 5008-02 

3.3278*01 

3.3278*01 

1 ,0008*00 

1.320«-05 

1 ,3208-05 

3.3428-01 

15.496 

8.0008-02 

3.6738*01 

3.6738*01 

1,0008*00 

1.6078-05 

1,6078-05 

9.1358-01 

11.774 

9.0008-02 

4,2498*01 

4,2498*01 

1,0008*00 

1 .8688-04 

1,8688-04 

4.7328*00 

12, 397 

1.0008-01 

4,7108*01 

4.7108*01 

1,0008*00 

6.7368-04 

6 .7368-04 

1.7068*01 

11.807 

1.0508-01 

3,6458-04 

3.6458-04 

3  ,6448-04 

1.1548-03 

4.2078-07 

1  .0608-02 

6,265 

1 .5008-01 

7,4728-04 

7.4728-04 

7,4698-04 

2,4158-02 

1  .8038-05 

4  .5468-01 

6.199 

2.0008-01 

1.3508-03 

1.3508-03 

1,3498-03 

1.1218-01 

1.5128-04 

3.8118*00 

4.959 

2.5008-01 

2.1618-03 

2.1618-03 

2,1588-03 

2.4268-01 

5.2358-04 

1.3198*01 

4.132 

3.0008-01 

3.1658-03 

3.1658-03 

3,1608-03 

1.6828-01 

1 .1638*03 

2.9328*01 

3,542 

3,5008-01 

4.3428-03 

4.3428-03 

4.3338*03 

4.6388-01 

2.0098*03 

5.0638*01 

3.099 

4,0008-01 

5 . 7?28-03 

5.7228.03 

5,7068-03 

5.2528-0) 

2.9978-03 

7.55l8*0t 

2.755 

4 ,5008-01 

7,2408-03 

7.2408-03 

7,2148-03 

5.5788-01 

4 ,0948-03 

1  .0148*02 

2.479 

5.0008-01 

8.8768-03 

8. 8768-03 

8.8378-03 

5.690»-0t 

5.0?8»-03 

1 .267a*0? 

2.254 

5.5008-01 

6.7458-03 

6.7458-03 

6.7228-03 

6  .654»-01 

1.8018-03 

9  ,5758*01 

2.066 

6.0008-01 

B. 0228-01 

8.0228-03 

7.9908-01 

3.52?«-01 

4.4)28-01 

1  . 1 1 1«*02 

1  .907 

6.1008-01 

3.2448-03 

3.2448-03 

3.2398*01 

5.331»-01 

)  .7268-03 

4 .151a*01 

1.771 

7.0008-01 

1,3418-03 

3.3418-03 

3.3368*03 

5.1068-01 

1.7038-03 

4.292«+01 

1.65  3 

7,5008-01 

3,9298-03 

3,9298-03 

1,9228-0! 

i-S 

4,5668-01 

t  ,9088-03 

4,8098*01 

1 . 

8, 0008-01 

<4,569^-03 

a  ,569«“03 

4,8886-64 

a . 622®-oi 

2 .16*6-63 

5 , 309**0 1 

1.488 

8.8004-01 

5, 2*00-03 

5.?60»-03 

8,  ? ..7»-04 

a . 3008-ni 

2.2644-63 

5.7908*01 

1.37? 

4,0004-01 

3.6330-"3 

3,<S30*-03 

4,6906-03 

a .  i46®-ni 

1  .5654-')1 

3.705«*O1 

1.308 

o.80J«-ol 

a,o^o»-o3 

4,0698-03 

4,0616-01 

3.9228-01 

1 ,8644-63 

1,013«*01 

1.240 

1 .0004*00 

4.5330-03 

a  ,53  3*8-0  J 

4.5236-03 

^  .7098-01 

1  ,6784-03 

a,??0»*ni 

1.181 

1.0804*00 

0.0228-03 

5,0220-0? 

8.0106-03 

3. 509P-O1 

1  ,  7  *  4  4 . 0  7 

a  ,  a 2Q8*0 1 

1.128 

1 .1004*00 

4.6950-''3 

a  »*O51i-0  3 

4 . 6844-03 

3.3218-01 

1  ,5464-61 

3,9198*01 

1  .078 

1 . 1804*00 

3.5458-^3 

3.5a59-03 

3,8.394-03 

3 , i a  a  *  «o i 

1.11 3® -6  3 

?,0Oa«*Oi 

1  .033 

1 .2004*00 

3,9490-03 

3  ,oa?«-03 

3.9346-03 

2 .979«-01 

1 , 1794-63 

2 ,95  3®*0 i 

0.002 

1 .2804*00 

2, 1*0*-03 

2.  l80»-33 

2.1786-01 

2,8258-01 

4 , 1 54*-64 

1  ,05ia*Ol 

0.084 

1 . 3004*00 

2.401  ®-A3 

2  .4010-03 

?. 3986-03 

2.6020-01 

6 , 4  494  — na 

1  .^218*01 

0.018 

1  .  380»*00 

2.6340-03 

2.634*-D3 

2.6306-03 

2,5a78-ftl 

4. *604-06 

1  ,0««8*O} 

0.806 

1  .  400»*00 

2,3770-03 

2,5778-03 

2.8736-01 

2.4228-01 

6 , 9594-04 

1 ,754®  +  o 1 

0,885 

1  .4804*00 

3 • 1 3  3*-03 

3  .1 33«-03 

3.1286-03 

?.305a-01 

7,2094-04 

1 ,017«*O1 

0,826 

1  .8008*00 

3,399**03 

3  ,  3<?9«-03 

3.3946-03 

2,1 96®-0l 

7,461*-0a 

1  , 870**01 

0 ,6o0 

1  .8804*00 

3, 3aa0-O3 

3.3440-03 

3.3396-03 

2,0938-01 

4,9448-04 

1,7ftl8*0l 

0,775 

1  .6006*00 

3.4640-03 

3 .4640-03 

4.4886-03 

1  ,9908-01 

4,96*4-04 

1 ,7ao«*Oi 

0.751 

1 ,6804*00 

3 ,6000-03 

3 • 600* -0  3 

3,5946-03 

1  ,9008-01 

4.8666-04 

1  ,7208*01 

0.720 

1  .7006*00 

3 , 75  3ft "0  3 

3.7538-03 

3,/ 466-03 

i  ,02a«-oi 

4,8196-04 

1  ,7??8*01 

0.708 

1.7506*00 

3.<?2t*-n3 

3 . 92 1 0-0  J 

3,9136-03 

t.7a5»-ot 

4,8986—04 

1,7210*01 

0.680 

1  .8004*00 

a .  1040-03 

a.ioa*«o3 

4  .0956-03 

1  .6718-01 

6.8496-04 

1  ,72a»*01 

0,670 

1 ,8806*00 

a  ,3000-03 

a  ,  300*-03 

4.2916-03 

1 , 60l 8 -0 1 

4, 8706-04 

1  ,?31®*01 

0.652 

1  ,9004*00 

4,5100-03 

a  .5108-03 

4,4996-03 

1  ,5368-0  1 

4.9698-04 

i  ,7a i8*oi 

0.636 

1  .9506*00 

4.7320-03 

a. 7328-03 

4,7216-03 

1 ,4740-01 

6.9678-04 

1  , 75  30  +  0 1 

0.620 

2 .0006*00 

a  ,967»-n3 

a  .9678-03 

4,9846-03 

1  .ai68-ni 

7.01  36-64 

1  ,7070+01 

0,248 

8.0004*00 

3,6*60-02 

3.6868-02 

3,4186-02 

2,0628-02 

1  .0356-03 

2 ,00  3B  +0 1 

0.124 

i  .ooo4*o  i 

1.6000-01 

1  .6008-01 

1  .4796-01 

7.7078-03 

1  .  1406-01 

2  .  B  a  2® ♦0 1 

0  .062 

2.0004*01 

6,6«3i-0l 

6,6a.3«-01 

4,8546-01 

1  .9998-03 

9 , 76 1 6“04 

2. 3678*01 

0.025 

8.0006*01 

4.230P+OO 

a  ,2300*00 

9. .8566-01 

3,?608-oa 

3.2918-04 

7 ,09a«*OO 

0.012 

1  ,000»*02 

1  . 7060+01 

1  .7065*01 

1  .0006*00 

0.2308-05 

a.2106-05 

2,0000*00 

Program  e 

Symbol  Tfeble  for  Radiation  Flux 

R  =  radius  of  the  cylinder  (input) 

* 

KAPPA  [ILAMBDA,  IT]  =  effective  absorption  coefficient  (including  stimulated 
emission)  at  the  ILAMIDfrh  wavelength  and  ITth  temperature  (input  from 
DOUBLE). 

BT  =  minimum  temperature  at  which  the  KAPPA's  have  been  calculated  (input 
from  DOUBLE). 

DT  =  temperature  step  size  (input  from  DOUBLE). 

ET  a  maximum  temperature  at  which  the  KAPPA's  have  been  calculated  (input 
from  DOUBLE). 

NLAMBDA  =  number  of  wavelengths  at  which  KAPPA  has  been  calculated  (input 
from  DOUBLE). 

A  LAMBDA  [ILAMBDA]  =  ILAMBDAth  wavelength  (input  from  DOUBLE). 

a  number  of  equidistant  radial  distances  (of  the  cylinder)  at  which  the 
temperature  will  be  input.  Tnese  points  will  be  at  equal  intervals  from 
0  to  R  along  the  radial  direction  (input). 

TO 

T[IR]  a  temperature  at  point  R  along  the  radius  (input). 

jNrv 

/^/2  _ 

G  [x]  a  /  e  sin®  sin0d0  (tabulated  at  intervals  of  .1  from  x  s  0  to  x  =  30) 
^  0 

NPHI  ®  number  of  0  values  at  which  intergrand  will  be  evaluated  during  numerical 
integration  (input) 

DPHI  =  0  step  size 

DLAMBDA  [ILAMBDA  =  A  LAMBDA  [ILAMBDA]  -  ALAMBDA  [ILAMBDA  -  l] 

ARI  [I]  =  Ith  value  of  R^^  at  which  flux  is  to  be  found  (input). 

NRI  a  number  of  R^'s  at  which  flux  is  to  be  found. 


T 
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begin 

COMMENT  flux* 

CflMritNT  SEIL, BRUCE  SHANNON. 220.F0A3FI 
fRf  IN  BASSO  DISK  SERI  AL(  1 »  330)1 
FtLE  tN  PASSKAPPA  DISK  SERIALC2.  60,  1200)1 
FILE  IN  REA0ER{2,  10)1 
TILE  OUT  GLIL  A<2,  13)1 

comment  OOLLAN  oh  OOU8LE  DOLL*0  CARO  GOES  »’ERE  «»•»«»»*»»»»»»»»»»».»»•»)  OOOOOOCO 
ARRAY  ARI  10120)1  OOODOOOO 

INTEGER  Jl 
REAL  I,  NR  1 1 

REAL  r,  ri,  NBMI,  MTmETA,  os#  NLAMSOA,  n,  BLAMBOA,  FLAMrOA.  ht.  OT, 

ET.  NT,  IN,  IT,  NR,  COSPMt.  S'JMf,  PROPS.  THETA.  TANPHI.  INLAMBOA, 

INR,  INTHETA,  INPHI,  COUNTS,  OPMI,  TI,  ILAMBOA,  LAMBDA.  LPHI,  MPHT • 

TAN2BMI,  SINPHI.  COSALBM.  SINALPH,  PHI.  2.  LENOTH,  PROP,  NOS, 

APPRDXOS,  LS,  MS,  VM,  S,  R.MXY,  TM,  IBM,  ZM,  KLM,  IBB,  TEMP,  TNT, 

EPS,  SUM) 

REAL  X) 

ARRAY  SAVEMRI0I12,  013,  011*1) 

ARRAY  SIOI3001) 

ARRAY  TlOtAOI,  OLAMBOA,  EXPAROIOtSO],  KAPPAIOISO,  Ot)S),  ALAMBOAIOi 
«0J) 

FORMAT 

tF.PUT<"R""»£13.e»XS»«RI"«,£lS.8»X3»"NPHI"",EU.6»XS,/"APPR0X0S"»» 

£13.B»X3."NLAM80A"".£13.e,XS."N"»,£15.B.XS.«EPS"",EtS.B). 

LAMBOA ALONE (/*ALAMB0A"/(6E1B,B) ), 

TIMESI«T0TAL  TIME  IN  LAMB0Ap",F9, 3, "  SECONDS"/ 

"TOTAL  TIME  IN  S  «"»r9.3,»  SECONOS"/ 

"TOTAL  NUMBER  OF  S  VALUES"", I9/"T0TAL  TIME  IN  THETA  ">,r9,3# 

"  seconds"/" total  time  in  phi  "".rsD,"  seconds"/ 

"TOTAL  PROCESSOR  TVME"".r9.3,"  SECONOS"/"TOTAL  I/O  TIME"", 

F9.3,"  SECONDS"), 

RRI<"NR""»E13.A»X10,«fIIR)  ARRAY  F0LL0MS"/(6E1B.8) )» 
TT{*8T"".E13.8»X3»"0T**»£l3.8»X3i>"CT""»tlS.8)» 

TITLCNAPPAI"RAPPA  array  From  Oisx  FILE"), 

PRINTKAPPAI/"R0M  ILAM8CA"",Eli,3/(6£16,*))< 

OCLOCNI"TIME  FOR  300  INTEGRATIONS  USING  ROMBERG  0 r  ORDER  6  IS»»FA 
,3), 

0UTGI"0<«,F3. I," )■«, E20.ll), 

INl'ITl  (,,RR'*»E13  «8»XS,"K""»EI3«8«XS»  "NPHlR"»ElS.  8»X5)» 
IN01T2{"APPR0X0S"",E1*/B.X3."NLAMB0ap",E13.B,X3,"N"».E13.S*XS, 

"EP!"", £13,81, 

TIMELI"TOTAL  TIME  IN  LAMB0A"«,F*.3,"  SECONDS"), 


TIME PI'TOTAL  PROCESSOR  TImEo",F9.3««  SECONOS"), 

TIME*.. t  "TOTAL  I/O  TIME"«.F9. 3,"  SECONOS"), 

RESULfI"F"",lU.e,«  MATTS/CM2") ) 

LABEL  NEXTRAY) 

LA8EL  EXIT.  NEXTRI) 

REAL  PROCEDURE  LASIX,  XO.  OX.  Yp  N)) 

COMMENT  OROER  3  LAGRANGE  INTERPOLATION.  EQUAL  INDEPENDENT  STEP. 

SINGLE  DEPENDENT, INDEPENDENT  VARIABLE. EXTRAPOLATE  If  NOT  XOS XSX0*N»OX. 

X  •  OESIREO  INDEPENDENT  VALUE 

XO  •  FIRST  INDEPENDENT  VALUE  OF  Y  TABLE  IFOR  YtO>) 

OX  •  TABLE  STEP  FOR  INDEPENDENT 

Y  •  NANE.OEPENOENT  VARIABLE  VALUE  TABLE  1MUST  BE  SINGLE  SUBSCRIPT) 

N  •  MAX  IROEX  Cr  Y  TABLE  I  *  *  J  ) 

VALUE  X,  XO,  OX,  N) 

REAL  X,  XD,  OX) 

INTEGER  N) 

ARRAY  Y I 0 ) ) 

BEGIN 

INTEGER  I) 

REAL  S) 

I*  ENTIER(S*(X"XO)/OX)) 

IT  S"I  THEN 

LAG"  YU) 

ELSE 

LA0*<YII*1)"Y(I)>*<S"I)*Y<I)) 

END  LAG) 

COMMENT  DOLLAR  OR  DOUBLE  OOLLAR  CARO  GOES  HERE  A***********************) 
TINEI  T(GE  ID  ) 

REAOIREAOER./,  R 3 ) 

RCADIREAOER./,  NPHI,  APPROXOSIS 
READIREADER,/,  N) ) 

REAOIREAOER,/,  EPS)) 

REAOIBASSKAPPA,*,  BT,  OT,  ET)) 

COMMENT  TEMPS  AT  MHICH  XAPPALT  IS  GIVFN) 

RE*0(PASSKAPPA«*»  NLAMSOA)) 

READ1PASSXAPPA,  NLAMBDAP1,  ALAMB0A<*))) 

REAOIREADEH./,  NR,  FOR  IR*  0  STEP  1  UNTIL  NR  DO  TtIRJ)) 

MRITE1GEIL,  RRI ,  NR.  FDR  IR*  0  STEP  1  UNTIL  NR  00  Tt IR))) 

FOR  ILAMBOA*  1  STEF  1  UNTIL  NLAMROA  DO 

ALAMBOAI ILAMBOA)*  ALAMBOAl ILAMBOA IMP-*) 

NT*(ET-BT)/OT) 

FOR  IT*  0  STEP  I  UNTIL  NT  DO 
BEGIN 

REAOIPASSKAPPA,*,  FDR  ILAMBOA*  1  STEP  1  UNTIL  NLAMROA  00  KAPPA 
(ILAMBOA,  ITU) 


LAG  P 
LAG  3 
LAO  • 
LAG  5 
LAG  6 
LAG  7 
LAG  A 
LAG  G 
LAG  9 
LAG  10 
LAG  10 
LAG  12 
LAG  12 
LAG  12 
LAG  12 


LAG  1* 

OODOOOOO 

oooooooo 


e-i 


READIPrtSSKAPPA.*,  X.  X ) * 

END  OF  IT  LOOP* 

REAOIPaSSG.  301.  Gt*!)l 
IF  FALSE  THEN 
BEGIN 

INLAM8DA*  T I  HE  L  2  > » 

FOP  IT*  0  STEP  I  UNTIL  300  00 
BEGIN 

X*  IT /I  0 1 

GUT]*  ROMBERG!  .000000001  >  1 ,5/\)7963268.  6.  THfTA,  FXPI- 
X/ITEMP*  SlNl THETA) ) )xTEMP ) 

END  OF  IT  LOOP* 

INLAMBOA*  TIHE(2)-INLAHSDAI 
XRITEIGE  CLr  OCLOCK,  I  "i.AMROA/SO  ) » 

MRITEIPASSG.  30 C  i  (  !♦])» 

NRITEIGEIL.  OUTG.  FOR  IT*  0  STEP  I  UNTIL  300  OUIIT.  otlTll)* 
ENOI 

OPHI*  3.IAIS92693A/NPHII 
IF  FALSE  THEN 
begin  , 

NRITEIGEIL.  TITLEKAPPA)* 

FOR  ILAHBOA*  I  STEP  1  UNTIL  NLAH80A  00 

NRITEIGEIL.  PRINTKAPPA.  ALAMBOAI ILAHBOA J.  FOR  IT*  0  STEP  1 
UNTIL  NT  00  KAPPAIILAHROA,  IT))* 

NRITEIGEIL.  LAM80AAL0NE.  FOR  LAMBDA*  I  STEP  I  UNTIL  NLAMROA  no 
ALAHB0AIILAH80A))* 

NRITEIGEIL.  TT.  BT.  OT.  ET>) 

ENOI 

NRITEIGEILIOBLD* 

FOR  ILAHBOA*  2  STEP  I  UNTIL  NLAMBOA  OU 

OLAMBOAC ILAHBOA I*  ALAMBOAI 1LAHB0A]*ALAMF0AI ILAHBOA*! I* 

0LAH3DA! 1 1*  OLAHBO A (2 1 1 

REAOIREAOER./.  FOR  I*  0  STEP  I  li  21  00  AR I II] )  INEXTRI )  * 

NEXTRI I 

CLOSEIREAOER.  RELEASE)* 

NRI*  1-1* 

FOR  I*  0  STEP  I  UNTIL  NRI  00 
BEGIN 

RI*  ARItD* 

COUNTS*  0* 

INLAHBOA*  INS*  INTMETA*  INPHI*  0* 

NRITEISAVEHRI  I.  1<*)<  IN0IIT1.  R.  RI.  NPHI )  * 

NRITE ISAVENRt I >  2.*).  IN0UT2.  APPROXOS.  NLAMBOA.  N.  F*j)» 

SUHF*  0* 

IF  ri>1  Then 


LPHI*  I.5T07963268*0PHI/2 
ELSE 

LPHI*  QPMI/2* 

HPMI*  3.I415926536-0PMIN.A) 

INPHI*  IMPMI-TIHEI2)* 

FOR  PHI*  LPHI  STEP  OPHI  UN.IL  HPHI  00 
BEGIN 

TAN2PHI*ITANPHI*ISINPHI*  SINIPHi)) /COS PH I*  COS! PHI)) *2  I 
SUH*  0* 

C0SALPH*{RI/R*TAN2PHI-SBRTI1*TAN2PHIkII-{RI.R3»2) >)/II* 
TAN2PMI ) * 

SINALPH*  SGRT!I-C0S*LPM*2)I 

IF  ABS(SINALPH/IC0SALPH-RI,'R)-TANPH!)>. 0000001  then 
BEGIN 

C0SALPH*IRI/RxTAN2PHI*SGHTH.TAN2PHl*II-IRI/R)*2)> 
•  ]/!{♦! AN2PHI ) * 

SINALPH*  SQRTII*cnSALPH*2)» 

ENO* 

INTHETA*  IHTHETA-TIMEI2)* 

LENGTH*  SIHALPHnR/SINP  'I* 

FOR  ILAHBOA*  I  STEP  I  NTIL  NLAMBOA  00 
EXPARGIILAHBDA)*  01 

IF  NOS*  ENT!ERILENGTH/APPH0XI)S)*I<N  Then 

OS*  length/nos 

ELSE 

os*  length/n* 

LS*  OS/2* 

HS*  LENGTH-LS«.8» 

VH*  01 

INS*  INS-TIMEI2)* 

TOR  S*  LS  STEP  OS  UNTIL  HS  00 
BEGIN 

COUNTS*  COUNTS*!* 

RSHXY*  SGR1! iR!*S*COSPHI) *2*1 S»5 INPHI )*2)» 

TH*  LAGIRSHXT.  0.  R/NR.  T.  NR)* 

IBM*  I.RA022/TM* 

ZH*  0) 

INLAHBOA*  INLAHB0A-TIMEI2)* 

FOR  ILAHBOA*  I  STEP  I  UNTIL  NLAMBOA  00 
BEGIN 

LAHBDA*  ALAHBOAIILA  IHD A  3  * 

KLH*  LAGITM,  8T,  OT.  KAPPAIILAHROA,*).  NT)I 
IBB*  I.I925P-12/ILAMH0A*S*!EXP(TR'VLAMR0A)-1 
))) 

EXPARGt ILAHBOA)*  TEHP*  KLMxr)S*EXPAffG[ ILAMBDA 

e-z 


IF  TEMPS30  THEN 
BEGIN 

TNT*  KLMx(flB»LAGCTEMP.  0»  .1,  G.  10D)I 
*'«♦  ZM+rMTxDLAMBOAtILAMRO»JI 
ENO  TFMP30! 

END  OF  LAMROa  LOOP* 

INLAH90A*  INLAHBOA+TIHEI23I 
VM*  VM+ZMI 
ENO  OF  S  LOOP! 


INS*  INS*TIME(2)! 

Sum*  «,<im*vmxoS! 

INTMETA*  INTHETA*TIMf(2)| 

SUMF*  SIIMF  *SUMkCO!PHI  ! 

ENO  OF  PHI  LOOP! 

INPHl*  INPHI*TIMEt2)l 
SUMF*-SUMFx4xOPHH 

xRIT£(5AV£xRII»  Or*]  r  RESULT*  SUMF)! 

MR ITL ( SA VE  MR ( I .  3* *  Jr  TIMEL*  INLAMB0A/60 ) I 
NRITEtSAVEXRd,  A»*)»  TIMER.  TIME(2)/60)I 
KRITE t SAVEXRC I  *  5»*1»  TIMEIO.  TIME(3)/60)I 
ENO  OF  RI  LOOP! 

FOR  I*  D  STEP  l  UNTIL  NRI  00 
BEGIN 

mrite(geil:»»ge))i 

FOR  J*  0  STEP  1  UNTIL  3  00 

NRITEIOEIL.  IS.  SAVENRII,  J.*))l 
end  OF  I  LOOP! 


09120113  TUESDAT.  NOVEMBER  9.  19*?  PROCESSOR  TIME  •  5.BJ  SECONDS  I/O  TIME  »  22.3 P  SECONDS 


